Скрипт определения груп по пользователю.

[Alf]

set wshNetwork = WScript.CreateObject( "WScript.Network")
Set wshShell = WScript.CreateObject("WScript.Shell")

do while wshNetwork.username = ""
WScript.Sleep 1000
loop

username = wshNetwork.username
domainname = wshNetwork.userdomain

'отбор групп в которые входит пользователь
adspath = "WinNT://" & domainname & "/" & username
set adsobj = GetObject(adspath)

' перебор групп
for each prop in adsobj.groups
msgbox prop.name
select case prop.name
case "Administrators"
call Adminslogon
case "YourNewGroup"
call YourNewGrouplogon
end select
next