troubleshooting Question

Consuming a web service with authentication

Avatar of Knowledge-Dimension
Knowledge-Dimension asked on
Lotus IBM
8 Comments4 Solutions1534 ViewsLast Modified:
I am involved in a project where I have to consume a web service....

I am very new to web services and have limited knowledge on this subject.
I desperately need help.
The web service provider has given us the following vb.net code , but I have no idea how to adapt it to work in LotusScript ....

Please can you assist me in any way.... Here is the code :

Try
            Dim sVendorCode, sApplicationKey As String

            sVendorCode = txtVendor.Text
            sApplicationKey = txtAppKey.Text

            Dim oHS As New Handshake.Handshake

            Dim oAS As New AddressService.AddressService
            oAS.Url = ConfigurationSettings.AppSettings("WSUrl")
            oHS.Url = oAS.GetURL("Handshake")

            txtVendorToken.Text = oHS.GetToken(sVendorCode, sApplicationKey)
        Catch ex As Exception
            txtOutput.Text = ex.Message.ToString()
        End Try

There is a second part where we login :
Try
            Dim sVendorCode, sApplicationKey As String

            Dim oHS As New Handshake.Handshake

            Dim oAS As New AddressService.AddressService
            oAS.Url = ConfigurationSettings.AppSettings("WSUrl")
            oHS.Url = oAS.GetURL("Handshake")

            Dim sLoginStatus, sMessage As String

            txtUserToken.Text = oHS.Login(txtVendor.Text, txtAccessKey.Text, txtAppKey.Text, sLoginStatus, sMessage)
            txtLoginStatus.Text = sLoginStatus

            txtOutput.Text = sMessage

        Catch ex As Exception
            txtOutput.Text = ex.Message.ToString()
        End Try
ASKER CERTIFIED SOLUTION
Sjef Bosman
Groupware Consultant

Our community of experts have been thoroughly vetted for their expertise and industry experience.

Join our community to see this answer!
Unlock 4 Answers and 8 Comments.
Start Free Trial
Learn from the best

Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.

Andrew Hancock - VMware vExpert
See if this solution works for you by signing up for a 7 day free trial.
Unlock 4 Answers and 8 Comments.
Try for 7 days

”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.

-Mike Kapnisakis, Warner Bros