(You will have to change the file type in the save dialog to “All Files” or notepad will change your filename to Firefox.vbs.txt which won’t work!)

‘—– Begin Copy Here —-

SUB DeleteFiles(strDirectory)

on error resume next
Dim oFSO
Dim sDirectoryPath
Dim oFolder
Dim oDelFolder
Dim oFileCollection
Dim oFile
Dim oFolderCollection

Set oFSO = CreateObject(”Scripting.FileSystemObject”)
set oFolder = oFSO.GetFolder(strDirectory)
set oFolderCollection = oFolder.SubFolders
set oFileCollection = oFolder.Files

For each oFile in oFileCollection
oFile.Delete(True)
Next

For each oDelFolder in oFolderCollection
oDelFolder.Delete(True)
Next

Set oFSO = Nothing
Set oFolder = Nothing
Set oFileCollection = Nothing
Set oFile = Nothing
END SUB

Set wshShell = WScript.CreateObject (”WScript.shell”)
strUserName = wshShell.ExpandEnvironmentStrings( “%USERNAME%” )

DeleteFiles “C:\Documents And Settings\” & strUserName & “\Recent”
DeleteFiles “C:\Documents And Settings\” & strUserName & “\Local Settings\Temp”
DeleteFiles “C:\Documents and Settings\” & strUserName & “\Local Settings\History”

wshshell.run “”"C:\Program Files\Mozilla Firefox\firefox.exe”"”
set wshshell = nothing

‘— End Copy Here —