Private Sub Form_Load()
sComputer = "127.0.0.1"
Set cont1 = GetObject("WinNT://" & sComputer & ",computer")
'We want only users.
cont1.Filter = Array("user")
Debug.Print "************User list***************"
For Each usr In cont1
Debug.Print usr.Name
Next
Set cont2 = GetObject("WinNT://" & sComputer & ",computer")
'We want only groups.
cont2.Filter = Array("Group")
Debug.Print "***********group info***************"
For Each grp In cont2
Debug.Print grp.Name
Set memberList = grp.members
For Each member In memberList
Debug.Print " "; member.Name & "(" & member.Class & ")"
Next
Next
End Sub