Kofax DM API - Manual (Page 99)

DM API O BJECTS 79
PCDNetworkInfo
Dim sMember As String
Dim nNumRows As Long
'Retrieve the GroupMembers from the network
nResult = oMembers. GetGroupMembers ( _
"%NI_NT", sDomainName, sGroupName)
If nResult = 0 Then
'Get the Group members.
nNumRows = oMembers. GetRowCount ()
If nNumRows = 0 Then
MsgBox "No access to Members for this group."
Else
'Place all of the members of this group
'in the ListBox.
For i = 1 To nNumRows
nResult = oMembers. NextRow ()
lstMembers.AddItem (oMembers. GetValue ())
Next i
'Select the first member in the list.
lstMembers.ListIndex = 0
End If
Else
'No members in this group.
lstMembers.AddItem sDomainName + "No Members"
End If
nFirstTime = 1
End Sub
Private Sub lstMembers_Click()
Dim nResult As Long