Code Snippet
on error resume next
Set WshNetwork = WScript.CreateObject("WScript.Network")
StrComputer = WshNetwork.ComputerName
Set objWMIService = GetObject("winmgmts:\\" & StrComputer & "\root\cimv2") 'VC DEVE SER ADMINISTRADOR DA MAQUINA E N PODE HAVER FIREWALL NO CAMINHO
if Err.number <> 0 then
'WriteLog StrComputer & vbTab & Err.Description & vbTab & "Tentando conecta-se via WMI ao PC remoto"
Err.Clear
wscript.quit
End if
Set colAccounts = objWMIService.ExecQuery _
("Select * From Win32_Group Where Domain = '" & StrComputer & "'")
For Each objAccount in colAccounts
'wsh.echo objAccount.name
If objAccount.SID ="S-1-5-32-544" Then 'Achou o grupo administradores
Set ObjAdministrador = GetObject("WinNT://" & strComputer & "/" & objAccount.Name & "")
StrGroup = objAccount.Name
End if
Next
Local = "" 'Local para salvar o arquivo .CVS com os membros do grupo especificado
FileLog = Local & WshNetwork.ComputerName & "_" & StrGroup & ".txt"
ActionList = "no"
Set ObjFSO = CreateObject("Scripting.FileSystemObject")
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set ObjFileRead = ObjFSO.opentextfile(FileLog, ForReading, True)
Set ObjFileAppending = ObjFSO.opentextfile(FileLog, ForAppending, True)
Set objNetwork = CreateObject("WScript.Network")
Set objGroup = GetObject("WinNT://" & StrComputer & "/" & StrGroup & ",group")
StrMemberAdsPath = "WinNT://" & StrComputer & "/" & StrMember ' AdsPath do Membro
AdsPathGroup = objGroup.AdsPath
For Each objUser In objGroup.Members
WriteLog WshNetwork.ComputerName &","& Ucase(objUser.name) &","& objUser.class
ActionList = "yes"
Next
Function WriteLog (Text)
ObjFileAppending.WriteLine Text
End Function
