首页业界动态通用技术技术文章-ISA技术文章-ISA 2006ForeFront TMG相关下载 登录论坛 @联系我们
ISA中文站 > 信息 > 技术文章-ISA > ISA-安装和规划 > 使用脚本来导入URL集和域名集
现在时间是: 2019-01-18 21:27
使用脚本来导入URL集和域名集

(2004-09-12 20:50)
来源:ISAServer.org




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


译自Thomas W Shinder,“Strong Outbound Access Control using the ISA Firewall (2004):

Using Scripts to Populate URL Sets and Domain Name Sets”,有修改


作为一个网管,相信有领导叫你限制员工上网的情况,例如只限制员工访问某些网站。在禁止的网站数量少的时候,添加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集文本文件名。

 



作者:Thomas W Shinder
责任编辑:风间子

[1] [2] 下一页>>
上一篇:为防火墙客户和Web代理客户配置自动发现
下一篇:ISA Server 2004标准版安装指南
相关信息:

设计ISA Server 2004计算机的Windows服务基础
编辑ISA Server 2004的系统策略(Part 1)
ISA Server 2004工具下载 v5.0
关于ISA Server 2004中请求拨号的使用说明
将OWA用户重定向到正确的路径和协议(第二部分)

热点信息 TOP 10
ISA Server 2004标准版安装指南
How to :在域环境中配置ISA Server 2004
How to :使用公共IP地址来访问DMZ中的服务器
ISA Server 2004 SP2 使用指南 v 1.06
How To :配置ISA防火墙作为网络间的路由器
How to :在ISA Server 2004中配置DMZ网络
How to:在存在多条路由的内部网络中配置ISA Server 2004
ISA2004 beta2 快速安装指南
How to : 如何配置ISA Server 的网络环境 v2.0
How to :在ISA Server 2004中同时使用多条路由

搜索 SEARCH
关键字:
包含:
搜索于:


Copyright © ISACN.ORG 2004-2019 All Rights Reserved..