Can I use VBScript to Clear IE Cache

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Can I use VBScript to Clear IE Cache

Logged in as: Guest

arrSession:exec spGetSession 2,2,1125

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Can I use VBScript to Clear IE Cache
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Can I use VBScript to Clear IE Cache - 7/8/2004 5:20:32 AM

ebegoli

Posts: 1
Score: 0
Joined: 7/8/2004
From:
Status: offline

Help me with this please:

Is it possible to use VBScript to clear IE Cache/Temporary Internet Files. Our users review some sensitive business PDFs on the web, and we would like to help them by automating the browser cache cleaning process. Is this possible to do with VBScript, and if it is - how?

Thank you in advance,
Edmon

Post #: 1

Re: Can I use VBScript to Clear IE Cache - 7/8/2004 7:44:40 AM

mbouchard

Posts: 1916
Score: 16
Joined: 5/15/2003
From: USA
Status: offline

This is gonna be kinda long, but here is a script that I got from another forum, have only played with it so am not too sure how well it does. But, why not jus set IE to empty internet temporary files when it is closed?

Mike
watch for line wrap

Const WindowsFolder = 0
Const SystemFolder  = 1
Const TemporaryFolder = 2

'Option Explicit
'option explicit
Dim WshShell
Dim strVer
dim GetOS
Dim OSver
Dim StrProfile
Dim strWinFolder
Dim strTempFolder
Dim Fso : Set Fso = CreateObject("Scripting.FileSystemObject")

Dim WshNetwork : Set WshNetwork = CreateObject("Wscript.Network")
set WshShell = createobject("wscript.shell")
set strVer = WshShell.exec("cmd /c ver")

'Set OSver to equal readout.  IF this is not done and strVer.stdout.readall is used in place of OSver only the first IF 'statemtent below will be read.
'It seems that strVer.stdout.readall is reset after every use??
OSver = strVer.stdout.readall

If InStr(OSver, "XP") Then GetOS = "WXP"
If InStr(OSver, "2000") Then GetOS = "W2K"
If InStr(OSver, "NT") Then GetOS = "NT4"
If InStr(OSver, "98") Then GetOS = "W98"
If InStr(OSver, "Millennium") Then GetOS = "W98"

'Set Windows, Temp, and Profiles folder per OS

strWinFolder =  fso.GetSpecialFolder(WindowsFolder)
strTempFolder =  fso.GetSpecialFolder(TemporaryFolder)
If GetOS = "WXP" or GetOS = "W2K" then
strProfile = "c:\Documents and Settings\"
End if
If GetOS = "NT4" Then
strProfile = "c:\winnt\profiles\"
End if

'***************************************************************************
'***************************************************************************

' Delete the Temp files in the C:\WINNT folder.
'Any files in use by the system will not be deleted.
'Checks to see if folder is there.

If fso.FolderExists(strWinFolder & "\Temp\") Then

'Forces deletion of files and subfolders
'Will not delete the Temp folder. Not supposed to anyway.
'So, error resume past it.

On Error Resume Next

fso.DeleteFile (strWinFolder & "\Temp\*.*"), True
fso.DeleteFolder (strWinFolder & "\Temp\*.*"), True

End If

'If folder is there, ends without making folder
'If folder is not there, just in case we screwed up, folder is recreated

If  Not fso.FolderExists(strWinFolder & "\Temp\") Then
NewFolder = fso.CreateFolder (strWinFolder & "\Temp\")

'Stops Error Checking
On Error GoTo 0

End If
WScript.Sleep 3000

'***************************************************************************
'***************************************************************************
' Delete the recently viewed document links in the C:\Documents and Settings\"USERNAME"\Recent folder.
'Checks to see if folder is there.
'Just a bunch of Shortcuts to recently viewed items.
'Any files in use by the system will not be deleted.

On Error Resume Next

If fso.FolderExists(strProfile & WshNetwork.username & "\Recent\") Then
'Forces deletion of files and subfolders not in use.
fso.DeleteFile  (strProfile & WshNetwork.username & "\Recent\*.*"), True
'Stops Error Checking
On Error GoTo 0
End If
'End if
WScript.Sleep 3000

'***************************************************************************
'***************************************************************************

' Delete the Temp files in the C:\Documents and Settings\"USERNAME"\Local Settings\Temp folder.
'Deletes all temp files and folders that are created by e-mail attachments,
'viewed documents, and other files from your personal profile.
'Any files in use by the system will not be deleted.

'Checks to see if folder is there.

On Error Resume Next

If fso.FolderExists(strProfile & WshNetwork.username & "\Local Settings\Temp\") Then

'Forces deletion of files and subfolders not in use.

fso.DeleteFile (strProfile & WshNetwork.username & "\Local Settings\Temp\*.*"), True
fso.DeleteFolder (strProfile & WshNetwork.username & "\Local Settings\Temp\*.*"), True

'Stops Error Checking
On Error GoTo 0

End If
WScript.Sleep 3000

'***************************************************************************
'***************************************************************************

' Delete the Temporary Internet files and folders in the C:\Documents and Settings\"USERNAME"\Local Settings\Temporary Internet Files folder.
'Deletes and removes temporary Internet files and folders.
'Any files in use by the system will not be deleted.

'Checks to see if folder is there.
On Error Resume Next
'If fso.FolderExists(strProfile & WshNetwork.username & "\Temporary Internet Files\") Then
'Forces deletion of files and subfolders not in use.
wshShell.run "cmd /c del " & strprofile & WshNetwork.Username & "\Tempor~1\*.* /q", 1, True
fso.DeleteFile (strProfile & WshNetwork.username & "\Tempor~1\*.*"), True
fso.DeleteFile (strProfile & WshNetwork.username & "\Tempor~1\*.*"), True
'End if

If fso.FolderExists(strProfile & WshNetwork.username & "\Local Settings\Temporary Internet Files\") Then
'Forces deletion of files and subfolders not in use.
fso.DeleteFile (strProfile & WshNetwork.username & "\Local Settings\Temporary Internet Files\*.*"), True
fso.DeleteFile (strProfile & WshNetwork.username & "\Local Settings\Temporary Internet Files\Content.IE5\*.*"), True
End If
On error goto 0
msgbox "Done"
set fso = Nothing
set wshshell = Nothing
set WshNetwork = Nothing
set NewFolder = Nothing
set objShell = Nothing

'***************************************************************************
'***************************************************************************

(in reply to ebegoli)

Post #: 2

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Can I use VBScript to Clear IE Cache

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts