Aqui está um script que eu modifiquei de este site . Eu não testei o código, mas parece bom.
Option Explicit
Dim objNetwork, strDomain, strComputer, objComputer, objGroup, strGroupMemberships
Dim arrGroupMemberships
' Get the domain and username from the WScript.Network object
Set objNetwork = CreateObject("WScript.Network")
strDomain = objNetwork.UserDomain
strComputer = objNetwork.ComputerName
' Instanciate the user object from the data above
Set objComputer = GetObject("WinNT://" & strDomain & "/" & strComputer)
' Run through the users groups and put them in the string
For Each objGroup In objComputer.Groups
strGroupMemberships = strGroupMemberships & objGroup.Name & ","
Next
arrGroupMemberships = Split(strGroupMemberships, ",")
' Loop through array to get groups that this computer is a member of
Isso deve levá-lo na direção certa se você ainda não resolveu o problema.