Kofax DM API - Manual (Page 97)

DM API O BJECTS 77
PCDNetworkInfo
End If
End If
cbGetMembers.Enabled = False
End Sub
Private Sub lstDomains_Click()
sDomainName = lstDomains.Text
lstGroups.Clear
'Fill the UserList with Users in this list.
nResult = oGroupInfo. GetGroupList ( _
"%NI_NT", sDomainName)
nNumRows = 0
'Get the rowcount.
If nResult = 0 Then
nNumRows = oGroupInfo. GetRowCount ()
End If
'Display user list in the lstGroups ListBox.
If nNumRows = 0 Then
MsgBox "User information for this domain “ _
“is not available to you."
Else
For i = 1 To nNumRows
nResult = oGroupInfo. NextRow ()
lstGroups.AddItem (oGroupInfo. GetValue ())
Next i
'Pre-select the first item in the list.
lstGroups.ListIndex = 0
sGroupName = lstGroups.Text
cbGetMembers.Enabled = True
End If