TMG server ISA server 批量添加域名集

 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

' Copyright (c) Microsoft Corporation. All rights reserved.

' THIS CODE IS MADE AVAILABLE AS IS, WITHOUT WARRANTY OF ANY KIND. THE ENTIRE

' RISK OF THE USE OR THE RESULTS FROM THE USE OF THIS CODE REMAINS WITH THE

' USER. USE AND REDISTRIBUTION OF THIS CODE, WITH OR WITHOUT MODIFICATION, IS

' HEREBY PERMITTED.

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

' This script creates a new domain name set with the name specified by the user

' if it does not exist and imports all the domain names listed in a text file

' to the domain name set. If the specified domain name set already exists, the

' domain names in the text file are added without removing the existing domain

' names. In either case, duplicates are not added.

' This script has minimal error handling.

' Note that the text file must contain a list of domain names with each domain

' name on a separate line.

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Option Explicit

'Define the constants needed

Const Error_FileNotFound = &H80070002

Const ForReading = 1

Main(WScript.Arguments)

Sub Main(args)

If(args.Count <> 2) Then

Usage

End If

AddListToDomainNameSet args(0), args(1)

End Sub

Sub AddListToDomainNameSet(fileName, dnSetName)

' Create the root object.

Dim root ' The FPCLib.FPC root object

Set root = CreateObject("FPC.Root")

'Declare the other objects needed.

Dim isaArray ' An FPCArray object

Dim dnSets ' An FPCDomainNameSets collection

Dim dnSet ' An FPCDomainNameSet object

Dim fso ' A FileSystemObject object

Dim fileStream ' A TextStream object

Dim textRead ' A string

' Get references to the array object

' and the domain name sets collection.

Set isaArray = root.GetContainingArray()

Set dnSets = isaArray.RuleElements.DomainNameSets

' Retrieve the specified domain name set.

On Error Resume Next

Set dnSet = dnSets.Item(dnSetName)

If Err.Number = Error_FileNotFound Then

WScript.Echo "The " & dnSetName & "domain name set does not exist. " _

& "Creating it ..."

Set dnSet = dnSets.Add(dnSetName)

End If

On Error GoTo 0

Set fso = CreateObject("Scripting.FileSystemObject")

Set fileStream = fso.OpenTextFile(fileName, ForReading)

On Error Resume Next

Do While fileStream.AtEndOfStream <> True

textRead = fileStream.ReadLine

If textRead <> "" Then

Err.Clear

dnSet.Item textRead

If Err.Number = Error_FileNotFound Then

Err.Clear

WScript.Echo "Adding " & textRead

dnSet.Add textRead

End If

End If

Loop

On Error GoTo 0

' Save the changes.

dnSets.Save

WScript.Echo "Done!"

WScript.Quit

End Sub 

把以上代码存为VBS就可以了。使用方法 cmd下 cscript   *.vbs  文件名  域名集

文件为txt，格式如下

badiu.com

qq.com

...