Kofax DM API - Manual (Page 150)

130 C HAPTER 4
AddLogin
'DM API supports.
MyLoginType.LIBRARY_LOGIN = 0
MyLoginType.NETWORK_BINDERY = 1
MyLoginType.NETWORK_NDS = 2
MyLoginType.MS_NETWORK = 8
'Create an instance of the logon object.
Dim pClient As PCDLogin
Set pClient = New PCDLogin
'Get the Library, User Name, and Password from
'the form.
Dim Library As String
Dim User As String
Dim Password As String
Library = txtLib.Text
User = txtUser.Text
Password = txtPassword.Text
'Use the Attaché password to log on to
'the indicated library.
Dim rc As Long
rc = pClient. AddLogin ( _
MyLoginType.LIBRARY_LOGIN, _
Library, _
User, _
Password )
'The DM Server authenticates
'the logon.
rc = pClient. Execute
'Check the return code for success.
If rc <> 0 Then MsgBox "A problem occurred."
'Clean up.
Set pClient = Nothing