Declare Function LceSetIBMiSignon Lib "LCOEW32" ( _
ByVal sServer As String, _
ByVal iMapperPort As Integer, _
ByVal bSslRequired As Byte, _
ByVal sUserId As String, _
ByVal sPassword As String, _
ByVal sNewPassword As String, _
ByVal bEncryptPassword As Byte, _
ByVal sReturnCode 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 sNewPassword As String
Dim bEncryptPassword As Byte
Dim sReturnCode As String
Dim i As Integer
sServer = "myserver"
iMapperPort = 0
bSslRequired = False
sUserId = "myuser"
sPassword = "mypasswd"
sNewPassword = "mynewpassword"
bEncryptPassword = True
sReturnCode = String(3, Chr(0))
sExpiryDate = String(20, Chr(0))
Call LceSetIBMiSignon(sServer, iMapperPort, bSslRequired, sUserId, sPassword, sNewPassword, bEncryptPassword, sReturnCode)
Sheet1.Columns("B").ColumnWidth = 20
Sheet1.Cells(4, "B") = "Return Code"
Sheet1.Cells(4, "C") = sReturnCode
End Sub