Can somebody help me continue the code below to retrieve Livelink users list?
Thank you very much.
Dim session As LLSession
Dim users As LAPI_USERS
Dim table As LLValue
Dim status As Long
Dim message As String
Dim errMsg As String
Dim apiError As String
session = New LLSession("landz",
2099, "Livelink", "Admin", "livelink"
users = New LAPI_USERS(session)
table = New LLValue().setAssocNotSet
Dim i As Long
If (status = users.ListUsers(table)) Then
End If
message = session.getStatusMessage
errMsg = session.getErrMsg
apiError = session.getApiError
Console.WriteLine("Session failure status is " +
status.ToString + " (0x" + status.ToString)
If (message <> "" And (errMsg <> "" And (apiError <> ""
Then
Console.WriteLine("Message=" + message)
Console.WriteLine("errMsg=" + errMsg)
Console.WriteLine("apiError=" + apiError)
End If
Thank you very much.
Dim session As LLSession
Dim users As LAPI_USERS
Dim table As LLValue
Dim status As Long
Dim message As String
Dim errMsg As String
Dim apiError As String
session = New LLSession("landz",
2099, "Livelink", "Admin", "livelink"
users = New LAPI_USERS(session)
table = New LLValue().setAssocNotSet
Dim i As Long
If (status = users.ListUsers(table)) Then
End If
message = session.getStatusMessage
errMsg = session.getErrMsg
apiError = session.getApiError
Console.WriteLine("Session failure status is " +
status.ToString + " (0x" + status.ToString)
If (message <> "" And (errMsg <> "" And (apiError <> ""
Then
Console.WriteLine("Message=" + message)
Console.WriteLine("errMsg=" + errMsg)
Console.WriteLine("apiError=" + apiError)
End If