Heray-Was-Here
Server : Apache
System : Linux vps103298.mylogin.co 4.18.0-513.11.1.el8_9.x86_64 #1 SMP Wed Jan 17 02:00:40 EST 2024 x86_64
User : calvet ( 273824)
PHP Version : 7.4.33
Disable Function : NONE
Directory :  /usr/share/doc/perl-SOAP-Lite/examples/COM/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Current File : //usr/share/doc/perl-SOAP-Lite/examples/COM/hashecho.vbs
' -- SOAP::Lite -- soaplite.com -- Copyright (C) 2001 Paul Kulchenko --

' Connect to remote SOAP server

Set soaplite = CreateObject("SOAP.Lite")
' values can be stored in hash using "hash" method
Set subhash = soaplite.hash("key_c", "Value C")
Set hash = soaplite.hash("key_a", "Value A", "key_b", subhash)
' or can be assigned directly
hash.key_b.key_d = "Value D"

Set echohash = soaplite.new( _
  "proxy", "http://services.soaplite.com/echo.cgi", _
  "uri",   "http://namespaces.soaplite.com/Echo" _
).echo(hash).result

MsgBox "key_a: "       & echohash.key_a       & chr(13) & _
       "key_b+key_c: " & echohash.key_b.key_c & chr(13) & _
       "key_b+key_d: " & echohash.key_b.key_d

Hry