Kofax DM API - Manual (Page 96)

76 C HAPTER 3
PCDNetworkInfo
If nResult = 0 Then
nNumRows = oGroupInfo. GetRowCount ()
End If
If nNumRows = 0 Then
MsgBox "You do not have access to “ _
& “Domain information at this time."
Else
'Fill ListBox with Domain information.
For i = 1 To nNumRows
nResult = oGroupInfo. NextRow ()
lstDomains.AddItem (oGroupInfo. GetValue ())
Next i
'Initialize Domain list to first element.
lstDomains.ListIndex = 0
'This Form data member holds currently
'selected Domain information.
sDomainName = lstDomains.Text
nResult = oGroupInfo. GetGroupList ( _
"%NI_NT", sDomainName)
If nResult = 0 Then
nNumRows = oGroupInfo. GetRowCount ()
End If
'If no rows are returned then place that
'information in the ListBox. Otherwise, place
'the list of all groups in the ListBox.
If nNumRows = 0 Then
lstGroups.AddItem "NO GROUPS FOR THIS DOMAIN"
Else
For i = 1 To nNumRows
nResult = oGroupInfo. NextRow ()
lstDomains.AddItem (oGroupInfo. GetValue ())
Next i