6 61 1 VB Example

LANSA Open Guide

6.61.1 VB Example

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