Kofax DM API - Manual (Page 92)

72 C HAPTER 3
PCDNetworkInfo
nNumRows = oNWInfo. GetRowCount ()
End If
If nNumRows = 0 Then
MsgBox "You do not have access to Domain “ _
& “information at this time."
Else
'Fill the listbox.
For i = 1 To nNumRows
nResult = oNWInfo. NextRow ()
lstDomains.AddItem (oNWInfo. GetValue ())
Next i
'Initialize this list to its first element.
lstDomains.ListIndex = 0
'Fill up the UserList with Users in this list.
nResult = oNWInfo. GetUserList ("%NI_NT", _
lstDomains.Text)
nNumRows = 0
'Get number of rows that are returned.
If nResult = 0 Then
nNumRows = oNWInfo. GetRowCount ()
End If
'Display the list of users in the
'lsDomainUsers 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