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