####
Sub sortList_test()
Set obj = CreateObject("pcom.WSC")
Dim l() As Variant
l = obj.sortList("fox", "dog", "moose", "cat", "fish")
For Each li In l
Debug.Print li
Next li
End
End Sub
Sub getHash_test()
Set obj = CreateObject("pcom.WSC")
Dim hash As Scripting.Dictionary
Set hash = obj.getHash("dogHash")
Debug.Print "Buddy is my " & hash.Item("buddy")
End Sub
Sub getScalar_test()
Set obj = CreateObject("pcom.WSC")
scalar = obj.getScalar(1)
Debug.Print scalar
scalar = obj.getScalar("a string! from VB")
Debug.Print scalar
End Sub
##
##
##
##
Set hash = obj.getHash("dogHash", "127.0.0.1")