使用脚本来导入URL集和域名集

    作为一个网管，相信有领导叫你限制员工上网的情况，例如只限制员工访问某些网站。在禁止的网站数量少的时候，添加URL集或者域名集是一件很简单的事情，如果禁止的网站数量多达1500个呢？如果再使用ISA Server的管理控制台来添加，相信你只会无语到极点。放心，在ISA Server 2004中，已经考虑到了这点。利用它提供的编程接口，你可以很轻松的完成这项任务。你只需要将这些域名集或者URL集放在一个文本文件中，然后其他的事情，可以放心的交给脚本去做。
　　
　　建立导入脚本
　　下面是一段脚本，这段脚本的功能是导入“urls.txt”文件中的URL集到ISA Server中定义的“Urls”对象中。将下列代码复制到一个文件中，然后另存为 ImportURLs.vbs。
　　
　　< ------------------Start with the line below this one----------------------- >
　　Set Isa =
　　CreateObject("FPC.Root")
　　
　　Set CurArray =
　　Isa.GetContainingArray
　　
　　Set RuleElements =
　　CurArray.RuleElements
　　
　　Set URLSets =
　　RuleElements.URLSets
　　
　　Set URLSet = URLSets.Item("Urls")
　　
　　Set FileSys =
　　CreateObject("Scripting.FileSystemObject")
　　
　　Set UrlsFile =
　　FileSys.OpenTextFile("urls.txt", 1)
　　
　　For i = 1 to URLSet.Count
　　
　　URLSet.Remove 1
　　
　　Next
　　
　　Do While
　　UrlsFile.AtEndOfStream <> True
　　
　　URLSet.Add UrlsFile.ReadLine
　　
　　Loop
　　
　　WScript.Echo "Saving..."
　　
　　CurArray.Save
　　
　　WScript.Echo "Done"
　　< ------------------End with the line above this one----------------------- >
　　黄色高亮显示的项你可以根据你自己的需要进行替换，
　　
　　这行：
　　
　　Set URLSet = URLSets.Item("Urls")
　　
　　你可以修改Urls为你在ISA Server中建立的URL集；
　　
　　这行：
　　
　　Set UrlsFile = FileSys.OpenTextFile("urls.txt", 1)
　　
　　你可以将urls.txt修改为你的URL集文本文件名。
　　
　　下面一段脚本将domains.txt文件中的域名集导入到ISA Server中的Domains对象中，将这段代码复制到一个文件中，另存为ImportDomains.vbs。
　　< ------------------Start with the line below this one----------------------- >
　　
　　Set Isa =
　　CreateObject("FPC.Root")
　　
　　Set CurArray =
　　Isa.GetContainingArray
　　
　　Set RuleElements =
　　CurArray.RuleElements
　　
　　Set DomainNameSets =
　　RuleElements.DomainNameSets
　　
　　Set DomainNameSet =
　　DomainNameSets.Item("Domains")
　　
　　Set FileSys =
　　CreateObject("Scripting.FileSystemObject")
　　
　　Set DomainsFile =
　　FileSys.OpenTextFile("domains.txt", 1)
　　
　　For i = 1 to
　　DomainNameSet.Count
　　
　　DomainNameSet.Remove 1
　　
　　Next
　　
　　Do While
　　DomainsFile.AtEndOfStream <> True
　　
　　DomainNameSet.Add
　　DomainsFile.ReadLine
　　
　　Loop
　　
　　WScript.Echo "Saving..."
　　
　　CurArray.Save
　　
　　WScript.Echo "Done"
　　
　　< ------------------End with the line above this one----------------------- >

    黄色高亮显示的项你可以根据你自己的需要进行替换，
　　
　　这行：
　　Set DomainNameSet =
　　DomainNameSets.Item("Domains")
　　
　　你可以修改Domains为你在ISA Server中建立的域名集；
　　
　　这行：
　　Set DomainsFile = FileSys.OpenTextFile("domains.txt", 1)
　　
　　你可以将domains.txt修改为你的URL集文本文件名。