作为一个网管，相信有领导叫你限制员工上网的情况，例如只限制员工访问某些网站。在禁止的网站数量少的时候，添加URL集或者域名集是一件很简单的事情，如果禁止的网站数量多达1500个呢？如果再使用ISA Server的管理控制台来添加，相信你只会无语到极点。放心，在ISA Server 2004中，已经考虑到了这点。利用它提供的编程接口，你可以很轻松的完成这项任务。你只需要将这些域名集或者URL集放在一个文本文件中，然后其他的事情，可以放心的交给脚本去做。
< ------------------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)
设为主页
收藏本站
相关文章: