利用脚本删除ISA Server缓存内容

2007-06-26 09:35:29

文件名：DeleteCacheContents.vbs

删除缓存内容

1.	创建一个 FPC COM 对象实例，此实例提供对其他 ISA 服务器管理 COM 对象的访问。
2.	声明一个 FPCServer 对象、一个 FPCCacheDrives 集合、一个 FPCCacheDrive 对象和一个 FileSystemObject 对象。
3.	获取对现有的 FPCServer 对象和 FPCCacheDrives 集合的引用。
4.	调用服务器对象的 StopFirewallService 方法来停止 Microsoft 防火墙服务。
5.	创建 FileSystemObject 对象的一个实例。
6.	在一个 For 循环中，循环访问缓存驱动器集合中的驱动器。对每一个驱动器，为每个驱动器上的 Urlcache 文件夹中的 Dir1.cdat 文件构建路径并调用文件系统对象的 DeleteFile 方法来删除此文件。
7.	调用服务器对象的 StartFirewallService 方法来启动防火墙服务并在每个缓存驱动器上创建新的缓存内容文件。

================================================================================

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

' 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

WScript.Echo "All the cache content files have been replaced by new files!"

End Sub

DeleteCacheContents

================================================================================

相关文章

文章评论

www.exlab.cn