/usr/share/doc/libsoap-lite-perl/examples/COM/states.vba is in libsoap-lite-perl 1.19-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 | Function GetSOAPObject() As Object
Static SOAPObject As Object
If SOAPObject Is Nothing Then
Set SOAPObject = CreateObject("SOAP.Lite").new
If SOAPObject Is Nothing Then
MsgBox ("Oops, no SOAP.Lite on this machine")
Exit Function
End If
SOAPObject.proxy("http://localhost/").uri ("http://www.soaplite.com/My/Examples")
End If
Set GetSOAPObject = SOAPObject
End Function
Sub GetStateNameRemotely()
Application.StatusBar = "Running SOAP call..."
Range("Current").FormulaR1C1 = GetSOAPObject.getStateName(Sheet1.TextBox1.Value).result
Application.StatusBar = False
End Sub
|