Pcdnetworkinfo – Kofax DM API User Manual

Page 100

Advertising
background image

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 “ _

Advertising