Sub App_GetUser()

Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName
Set colAccounts = GetObject("WinNT://" & strComputer)
colAccounts.Filter = Array("Group")

For Each objGroup In colAccounts
    Set objUserGr = GetObject("WinNT://" & strComputer & "/" & objGroup.Name)
    For Each objUser In objUserGr.Members
     'Обработка пользователей входящих в группу   
    Next
Next
End Sub

objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName
colAccounts = GetObject("WinNT://" + strComputer) &&All objects -- groups and users local computers
colAccounts.Filter = "Group" 

	
For Each objGroup In colAccounts
    objUserGr = GetObject("WinNT://" + strComputer + "/" + objGroup.Name)
    For Each objUser In objUserGr.Members
     'Обработка пользователей входящих в группу       
    Next
NEXT