使用ISA的話，有可能就需要限制or允許訪問一大堆網站。

如果手工一條條在URL集里面輸入，如果是幾百條，那一定是一個噩夢。

還好，很多事情都有腳本，都有批處理。

以下內容，保存為vbs文件即可。

?

===========復制以下============

?

Dim ISA_Urls
Dim UrlFile
ISA_Urls=InputBox("請輸入你已經在ISA服務器URL對象集里面建立的URL集名稱。"&vbCr&"此對象必須已經建立。","")
UrlFile=InputBox("請輸入已經整理好的URL文件名，必須包含擴展名。"&vbCr&"該txt文件必須放到vbs的同一個目錄下。"&vbCr&"必須每行一個URL，且URL不能重復。","")
WScript.Echo "單擊確定，開始運行批處理。"
Set Isa = CreateObject("FPC.Root")
Set CurArray = Isa.GetContainingArray
Set RuleElements = CurArray.RuleElements
Set URLSets = RuleElements.URLSets
Set URLSet = URLSets.Item(ISA_Urls)
Set FileSys = CreateObject("Scripting.FileSystemObject")
Set UrlsFile = FileSys.OpenTextFile(UrlFile, 1)
For i = 1 to URLSet.Count
URLSet.Remove 1
Next
Do While UrlsFile.AtEndOfStream <> True
URLSet.Add UrlsFile.ReadLine
Loop
CurArray.Save
WScript.Echo "全部網址已經添加，請刷新ISA控制臺察看。"

'===================================
'原腳本由ISA中文站風間子制作
'飛翔文苑修改增加InputBox提示
'2010-04-05
'===================================

?

===========復制以上============

轉載于:https://blog.51cto.com/hpfplane/373419

總結

以上是生活随笔為你收集整理的批量输入ISA防火墙的URL对象的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。