Also here are the equivalents for Chrome and Firefox:
' Clears the Chrome cache, passwords, cookies, etc...
Sub ClearAllChromeStoredInfo
Set objFSO = CreateObject("Scripting.FileSystemObject")
strAppDataFolder = AQEnvironment.GetEnvironmentVariable("LocalAppData") & "\Google\Chrome\User Data\Default"
Set FilesInFolder = objFSO.GetFolder(strAppDataFolder).Files
Set FoldersInFolder = objFSO.GetFolder(strAppDataFolder).SubFolders
For Each Folder In FoldersInFolder
If Not UCase(Folder.Name) = "EXTENSIONS" _
And Not UCase(Folder.Name) = "EXTENSION STATE" Then
Folder.Delete True
End If
Next
For Each File In FilesInFolder
If Not UCase(File.Name) = "PREFERENCES" Then File.Delete
Next
End Sub
' Clears the Firefox cache, passwords, cookies, etc...
Sub ClearAllFirefoxStoredInfo
Set objFSO = CreateObject("Scripting.FileSystemObject")
strLocalAppData = AQEnvironment.GetEnvironmentVariable("LocalAppData") & "\Mozilla\Firefox\Profiles"
strRoamingAppData = AQEnvironment.GetEnvironmentVariable("AppData") & "\Mozilla\Firefox\Profiles"
Set FoldersInFolder = objFSO.GetFolder(strLocalAppData).SubFolders
For Each Folder In FoldersInFolder
Folder.Delete True
Next
Set FoldersInFolder = objFSO.GetFolder(strRoamingAppData).SubFolders
For Each Folder In FoldersInFolder
Set FilesInFolder = Folder.Files
For Each File in FilesInFolder
If Instr(1, File.Name, "sqlite") > 0 Then File.Delete
Next
Next
End Sub