Const ForReading = 1
Dim arrTapes()
Redim arrTapes(1)
strPrevTapeNumber = "xxxx"
Dim objDictionary
Set objDictionary = CreateObject("Scripting.Dictionary")
'Reading Arguments from the commandline
Set args = WScript.Arguments
argTapesExportFile = args.Item(0)
argPoolName = args.Item(1)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(argTapesExportFile, ForReading)
Do While objTextFile.AtEndOfStream <> True
strLine = objtextFile.ReadLine
If inStr(strLine, argPoolName) Then
strTapeNumber = Mid(strLine,InStr(strLine,argPoolName) - 7,7)
if not inArray(arrTapes,strTapeNumber) then
redim preserve arrTapes(ubound(arrTapes)+1)
arrTapes(ubound(arrTapes)) = strTapeNumber
wscript.echo arrTapes(ubound(arrTapes))
end if
End If
strPrevTapeNumber = strTapeNumber
Loop
function inArray(a,value)
for each v in a
if v = value then
inarray = true
exit function
end if
next
end function
Server and Domain Isolation Using IPsec and Group Policy
Microsoft Solutions for Security and Compliance Server and Domain Isolation Using IPsec and Group Policy © 2006 Microsoft Corporation. This work is licensed under the Creative Commons Attribution-NonCommercial License. To view a copy of this license, visit http://creativecommons.org/licenses/by-nc/2.5/ or send a letter to Creative Commons, 543 Howard Street, 5th Floor, San Francisco, California, 94105, USA. Table of Contents Chapter 1: Introduction to Server and Domain Isolation. 1 Executive Summary. 1 Who Should Read This Guide. 2 The Business Challenge. 3 The Business Benefits. 3 The Technology Challenge. 4 Creating a Project Team.. 6 Guide Overview.. 7 Chapter 1: Introduction to Server and Domain Isolation. 7 Chapter 2: Understanding Server and Domain Isolation. 7 Chapter 3: Determining the Current State of Your IT Infrastructure. 7 Chapter 4: Designing and Planning Isolation Groups. 8 Chapter 5: Creating IPsec Policies for Isolation Groups. ...
Comments