Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
On Error Resume Next
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objNetwork = CreateObject("Wscript.Network")
Set objShell = CreateObject("Shell.Application")
'Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set WshSysEnv = WshShell.Environment("PROCESS")
MsgBox "For best results this tool should be executed while logged in as an Administrator",0,"Temp/Cookie Cleaner"
intAnswer = Msgbox("Are you sure you want to delete all temp/cookie files?",vbYesNo,"Temp/Cookie Cleaner")
If intAnswer = vbNo Then
WScript.Quit [exitcode]
End If
objFSO.DeleteFolder "c:\temp\*"
objFSO.DeleteFile "c:\temp\*.*"
'objShell.Open "c:\temp"
objFSO.DeleteFolder "c:\windows\Prefetch\*"
objFSO.DeleteFile "c:\windows\Prefetch\*.*"
'objShell.Open "c:\windows\Prefetch"
objFSO.DeleteFolder "c:\windows\temp\*"
objFSO.DeleteFile "c:\windows\temp\*.*"
'objShell.Open "c:\windows\temp"
strFolder = "c:\documents and settings\"
Set objFolder = objFSO.GetFolder(strFolder)
Set colFolders = objFolder.SubFolders
For Each objSubFolder In colFolders
If objSubFolder.Path = "C:\Documents and Settings\Default User" Or objSubFolder.Path = "C:\Documents and Settings\All Users" Or objSubFolder.Path = "C:\Documents and Settings\LocalService" Or objSubFolder.Path = "C:\Documents and Settings\NetworkService" Then
Else
'WScript.Echo objSubFolder.Path
strPath = objSubFolder.Path
objFSO.DeleteFile strPath & "\Cookies\*.*", true
objFSO.DeleteFolder strPath & "\Cookies\*", true
objFSO.DeleteFile strPath & "\Local Settings\Temp\*.*", true
objFSO.DeleteFolder strPath & "\Local Settings\Temp\*", true
objFSO.DeleteFile strPath & "\Local Settings\Temporary Internet Files\*.*", true
objFSO.DeleteFolder strPath & "\Local Settings\Temporary Internet Files\*", true
End If
Next
wscript.sleep 10000
'objExplorer.Visible = 0
BtnPress = WshShell.Popup("Temp/Cookie Cleaner completed ",7, "Temp/Cookie Cleaner", 0 + 64)
' clean up
Set objShell= nothing
Set objNetwork = nothing
Set objFSO = nothing
Set objExplorer = nothing
ATF-Cleaner