[Script] Deleting Forefront Thread Management Gateway
The Firewallservice will be disabled temporarily!
You can schedule this as task.
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' This script deletes all of the content stored in the ISA Server cache by ' deleting the cache content files stored on all the cache drives that are ' configured on the local ISA Server computer and then restarting the Firewall ' service, which creates new cache content files. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub DeleteCacheContents() ' Create the root obect. Dim root ' The FPCLib.FPC root object Set root = CreateObject("FPC.Root")
' Declare the other objects needed.
Dim server ' An FPCServer object Dim cacheDrives ' An FPCCacheDrives collection Dim cacheDrive ' An FPCCacheDrive object Dim fso ' A file system object Set server = root.GetContainingServer() server.StopFirewallService() Set cacheDrives = server.CacheDrives Set fso = CreateObject("Scripting.FileSystemObject") For Each cacheDrive In cacheDrives cacheFilePath = CacheDrive.Name & "\urlcache\Dir1.cdat" fso.DeleteFile cacheFilePath Next server.StartFirewallService() WScript.Echo "All the cache content files have been replaced by new files!" End Sub DeleteCacheContents