
80 CHAPTER 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 “ _
Kommentare zu diesen Handbüchern