邮件服务器-邮件系统-邮件技术论坛(BBS)

标题: 使用脚本来导入URL集和域名集 [打印本页]

作者: 524100jing 时间: 2005-6-2 21:01
标题: 使用脚本来导入URL集和域名集
使用脚本来导入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)

欢迎光临邮件服务器-邮件系统-邮件技术论坛(BBS) (http://bbs.5dmail.cn/)