Voici un script qui permet d'auditer les membres du groupe local de son choix (Administrateurs, par exemple) de tous les postes et serveurs d'un domaine dans un fichier texte:

' VB Script Document

option explicit

 Dim FileSys, TxtFile, oNet, GroupString, sDomain, domain, computer, text, GroupObj, userobj, comp, groupname
  
Set FileSys = CreateObject("Scripting.FileSystemObject")
Set TxtFile = FileSys.CreateTextFile("c:\Result.txt", True)

 On error resume next

 Set oNet=CreateObject("WScript.Network")
sDomain=oNet.UserDomain
groupname = inputbox ("Enter the group name:", "Group Name" , "Default value")
GroupString = groupname

msgbox "About to process script" & vbcrlf & vbcrlf & "Please be patient...",64

Set domain = getobject("WinNT://" & sDomain)
For each computer in domain
                if computer.class = "Computer" then
                               text = text & computer.name & vbcrlf
                               Set GroupObj = Getobject("WinNT://" & computer.name & "/" & GroupString)
                               For each userobj in GroupObj.Members
                                               text = text & vbtab & userobj.name & " ; " & vbcrlf
                               next
                               set GroupObj = nothing
                               comp = text
                               TxtFile.writeline(comp)
                               set comp = nothing

                 end if
     text = ""
Next

TxtFile.Close
wscript.echo "All Done!"