use this code sniplet
Public Function ListGroupMembers(ByVal MachineName As String, ByVal GroupName As String) As String()
Dim i As Integer
Dim arrStr() As String
Dim objGroup, objMember As Object
i = 0
objGroup = GetObject(“WinNT://” & MachineName & “/” & GroupName & “,group”)
For Each objMember In objGroup.Members
ReDim Preserve arrStr(i)
arrStr(i) = objMember.Name
i += 1
Next
Return arrStr
End Function
returns an array of string containing group memebers