Kofax DM API - Manual (Page 100)

80 C HAPTER 3
PCDNetworkInfo
Dim nNumRows As Long
'If program is now checking the top of Member
'list from the opening of the form...
If nFirstTime > 0 Then
'...Clear the Users Groups ListBox.
lstUsersGroups.Clear
'Retrieve the selected user’s full name.
nResult = oMembers. GetUserFullName ( _
"%NI_NT", sDomainName, lstMembers.Text)
nResult = oMembers. NextRow ()
txtFullName.Text = oMembers. GetValue ()
'Retrieve all groups that include the
'selected user.
nResult = oMembers. GetUserGroups ( _
"%NI_NT", sDomainName, lstMembers.Text)
If nResult = 0 Then
nNumRows = oMembers. GetRowCount ()
If nNumRows > 0 Then
'Place all Groups that include this user
'into the UsersGroups ListBox.
For i = 1 To nNumRows
nResult = oMembers. NextRow ()
lstUsersGroups.AddItem ( _
oMembers. GetValue ())
Next i
Else
lstUsersGroups.AddItem lstMembers.Text _
& " is not a member of any groups."
End If
Else
lstUsersGroups.AddItem "Unable to “ _