Add j, Item
j = j + 1
Next
j = 1
For Each Condition in objConditionsDict
objLogFile.Write(objConditionsDict.item(Condition))
If j <> objConditionsDict.Count Then
objLogFile.Write(???; ???)
End If
j = j + 1
Next
Set objConditionsDict = Nothing
Set objConditions = Nothing
End Function
???--------------------
??? Get Network Information
???--------------------
??? This function is used to get the network information for a rule.
Function GetNet(ObjectPath)
Dim objNet, objNetDict
Set objNet = ObjectPath
Set objNetDict = CreateObject(???Scripting.Dictionary???)
j = 1
For Each Item in objNet.AddressRanges
objNetDict.Add j, Item
j = j + 1
Next
For Each Item in objNet.Computers
objNetDict.Add j, Item
j = j + 1
Next
CHAPTER 20 Documenting an ISA Server 2006 Environment
529
20
Documenting the ISA Server 2006 Design
For Each Item in objNet.ComputerSets
objNetDict.Add j, Item
j = j + 1
Next
For Each Item in objNet.Networks
objNetDict.Add j, Item
j = j + 1
Next
For Each Item in objNet.NetworkSets
objNetDict.Add j, Item
j = j + 1
Next
For Each Item in objNet.Subnets
objNetDict.Add j, Item
j = j + 1
Next
j = 1
For Each Net in objNetDict
objLogFile.
Pages:
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808