''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 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


把上面的那些语句复制下来，新建一个文本文件，另存成一个扩展名为.vbs的文件，放到ISA服务器上运行即可

多谢兄弟。。。放了不少的好脚本上来。。。

可惜我这个人怪。。。有些东西。手动还是比较好。。‘’比较中意批处理哈。。。

你上次发的断QQ的我还没用。。还在考虑中。