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

524100jing

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