Kofax DM API - Manual (Page 93)

DM API O BJECTS 73
PCDNetworkInfo
'Pre-select the first item in the list.
lstDomainUserList.ListIndex = 0
End If
End If
End Sub
Private Sub lstDomains_Click()
Dim nResult As Long
Dim nNumRows As Long
'Clear listbox for results of this call.
lstDomainUserList.Clear
'Fill the UserList with Users within this list.
nResult = oNWInfo. GetUserList ("%NI_NT", _
lstDomains.Text)
nNumRows = 0
'Get the number of rows that are returned.
If nResult = 0 Then
nNumRows = oNWInfo. GetRowCount ()
End If
'Display users in the lstDomainUsers listbox
If nNumRows = 0 Then
MsgBox "User information for this domain “ _
& “is not available to you."
Else
For i = 1 To nNumRows
nResult = oNWInfo. NextRow ()
lstDomainUserList.AddItem( _
oNWInfo. GetValue ())
Next i