CASDM Web Service Test Connection
Dim USD As New localhost.USD_WebService
Dim s As String
Try
'http://localhost:8080/axis/services/USD_R11_WebService?WSDL
USD.Url = txtWSAddress.Text
s = USD.login(txtuser.Text, txtpassword.Text)
MsgBox(s)
Catch ex As Exception
MsgBox(ex.Message)
End Try