6 34 1 VB Example

6.34.1 VB Example

Declare Function LceGetIBMiSignon Lib "LCOEW32" ( _

    ByVal sServer As String, _

    ByVal iMapperPort As Integer, _

    ByVal bSslRequired As Byte, _

    ByVal sUserId As String, _

    ByVal sPassword As String, _

    ByVal bEncryptPassword As Byte, _

    ByVal sReturnCode As String, _

    ByVal sExpiryDate As String _

) As Integer

 

Sub LopenTest1()

 

Dim sServer As String

Dim iMapperPort As Integer

Dim bSslRequired As Byte

Dim sUserId As String

Dim sPassword As String

Dim bEncryptPassword As Byte

Dim sReturnCode As String

Dim sExpiryDate As String

 

sServer = "myserver"

iMapperPort = 0

bSslRequired = False

sUserId = "myuser"

sPassword = "mypasswd"

bEncryptPassword = True

 

sReturnCode = String(3, Chr(0))

sExpiryDate = String(20, Chr(0))

 

Call LceGetIBMiSignon(sServer, iMapperPort, bSslRequired, sUserId, sPassword, bEncryptPassword, sReturnCode, sExpiryDate)

 

Sheet1.Columns("B").ColumnWidth = 20

Sheet1.Cells(2, "B") = "Return Code"

Sheet1.Cells(2, "C") = sReturnCode

Sheet1.Cells(3, "B") = "Expiry Date"

Sheet1.Cells(3, "C") = sExpiryDate

 

End Sub