Kofax DM API - Manual (Page 95)

DM API O BJECTS 75
PCDNetworkInfo
IsMemberForm.sDomainName = "MyDomain"
IsMemberForm.sGroupName = "MyGroup"
IsMemberForm.TxtUserID = "Jimmy Jones"
IsMemberForm.Show
End Sub
Private Sub cbGetMembers_Click()
Dim nResult As Long
'Before loading the next form use load
'load the next form's Group and Domain
'data members.
GroupMembersForm.sGroupName = sGroupName
GroupMembersForm.sDomainName = sDomainName
'Set the next form's object DST.
nResult = GroupMembersForm.oMembers. SetDST (sDST)
GroupMembersForm.Show
End Sub
Private Sub Form_Load()
Dim nResult As Long
Dim sName As String
Dim nNumRows As Long
'Load up the Domain List.
nResult = oGroupInfo. GetDomainList ( _
"%NI_NT", "%UNDEFINED")
nNumRows = 0
'If the Domain list has been retrieved,
'get the number of domains in the list.