Этот скрипт может делать то, что вы хотите:
strGroup = "GroupName"
Set objNetwork = CreateObject("WScript.Network")
strDomain = objNetwork.UserDomain
strUser = objNetwork.UserName
Set objUser = GetObject("WinNT://" & strDomain & "/" & strUser)
Dim found
found = false
For Each objGroup In objUser.Groups
If StrComp(objGroup.Name, strGroup, 1) = 0 Then
found = true
Exit For
End If
Next
' use the found variable to decide what to do
Просто измените "GroupName
на группу, которую вы ищете.
Тем не менее, комментарий Морбо важен, так как, если вы заботитесь о косвенном членстве, вам придется пройти через все найденные группы, чтобы узнать, являются ли какие-либо из них, или группы, членами которых они являются, и т.д., членами группы, о которой вы заботитесь.