You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
49 lines
938 B
49 lines
938 B
|
|
Call GetZones()
|
|
|
|
|
|
Public Function GetZones()
|
|
|
|
Dim oAppleTalk
|
|
Dim sZones
|
|
Dim s
|
|
Dim count
|
|
|
|
Set oAppleTalk = CreateObject("MSSAAppleTalk.AppleTalk")
|
|
|
|
'
|
|
' Set current zone
|
|
oAppleTalk.Zone("Foo") = "Peach"
|
|
|
|
'
|
|
' Display current zone
|
|
WScript.Echo "Current Zone: " + oAppleTalk.Zone("Foo")
|
|
|
|
'
|
|
' Get list of zones
|
|
sZones = oAppleTalk.GetZones("Foo")
|
|
|
|
|
|
'
|
|
' Display the list of zones
|
|
If ( IsArray(sZones) ) Then
|
|
|
|
For count = 0 to CInt(UBound(sZones))
|
|
s = CStr(sZones(count))
|
|
Call SA_TraceOut("Zone " , CStr(count) + ": " + CStr(s))
|
|
Next
|
|
Else
|
|
Call SA_TraceOut("GetZones", "sZones is not an array")
|
|
Exit Function
|
|
End If
|
|
|
|
|
|
|
|
|
|
Set oAppleTalk = Nothing
|
|
|
|
End Function
|
|
|
|
Function SA_TraceOut(ByVal sFn, ByVal sMsg)
|
|
WScript.Echo sFn + " " + sMsg
|
|
End Function
|