我的一亩三分地 我就喜欢!
13fen  设为主页
 收藏本站
 
当前位置: > 一亩三分地：首页 > 操作系统 > 服务器 > IIS Server > ISA脚本技术：删除缓存内容
热门文章排行
热门文章排行 启动与关闭服务器(12-28)
服务器应用:用serv-u建立FTP一(11-16)
破解局域网内不能互访的六大经典问题(12-28)
Windows中IIS内FTP服务器高级配置(11-16)
怎样设置域名的DNS服务器(11-16)
精采文章排行
精采文章排行 在Windows Server 2003中为Web站点(11-16)
IP基础--DNS协定(11-16)
怎样设置域名的DNS服务器(11-16)
DNS—bind安装与配置的关键技术揭秘(11-16)
Exchange Server 服务器通讯端口(11-16)
技术专题推荐
网管论坛交流
　

ISA脚本技术：删除缓存内容 

作者:佚名   来源:Linux 宝库   点击:   日期:2006-12-28


　　ISA Server 2004将缓存内容存储在一个缓存内容文件中，此文件名为 Dir1.cdat，驻留在配置为用于缓存的每个驱动器的 Urlcache 文件夹中。将某一驱动器配置为用于缓存后，将创建一个缓存内容文件（.cdat 文件）。此外，每次启动 Microsoft 防火墙服务时，Microsoft 防火墙服务都会检查每个配置为用于缓存的驱动器上是否存在一个缓存内容文件。如果此文件已被删除，该服务会自动创建一个新的缓存内容文件。通过删除所有缓存内容文件并重新启动防火墙服务，可以手动删除存储在这些文件中的缓存内容。DeleteCacheContents.vbs 中的 Microsoft Visual Basic Scripting Edition (VBScript) 代码可以用编程方式执行这些步骤，并可以删除存储在ISA 服务器缓存中的所有内容，方法是用新缓存内容文件替代在本地 ISA 服务器计算机上配置的所有缓存驱动器上存储的缓存内容文件。
　　
　　用法：
　　Cscript 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 方法来启动防火墙服务并在每个缓存驱动器上创建新的缓存内容文件。
　　
　　DeleteCacheContents.vbs的内容如下，复制到记事本中另存为vbs扩展名即可：
　　
　　''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
　　
　　' 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 & "urlcacheDir1.cdat"
　　
　　fso.DeleteFile cacheFilePath
　　
　　Next
　　
　　server.StartFirewallService()
　　
　　WScript.Echo "All the cache content files have been replaced by new files!"
　　
　　End Sub
　　
　　DeleteCacheContents
　　
　　







【文章评论】 【收藏本文】 【推荐好友】 【打印本文】 【论坛讨论】

   相关文章:
·Win2003下Exchange2003安装全图解二 ·处理外部邮件的Exchangeserver设置
·准备好升级你的Exchange2003 ·Exchange2000安装的系统需求
·安装秘诀:Exchange2000容量与拓朴计算器 ·安装秘诀:将现有的Exchange2000群集节点

   文章评论:(条)
  
 请留名： 匿名评论   点击查看所有评论 网管论坛
 

  责任编辑:一分  声明：刊登此文章是为了传递更多信息,文章内容仅供参考,转载请注明出处。