/usr/share/doc/libsoap-lite-perl/examples/COM/hashecho.vbs is in libsoap-lite-perl 0.714-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | ' -- 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
|