Ba galera,
Peguei este script aqui no forum que lista os admin locais de uma maquina tche, porem eu gostaria de saber se a conta que ele esta apontando é do dominio ou não, no resultado tche ele coloca só o nome da conta e com isto eu não sei se elaé local ou do dominio
tche, alguem consegue me ajudar.
Obrigado tche.
codigo.
on error resume next
Set WshNetwork = WScript.CreateObject("WScript.Network")
StrComputer = WshNetwork.ComputerName
Set objWMIService = GetObject("winmgmts:\\" & StrComputer & "\root\cimv2")
if Err.number <> 0 then
Err.Clear
wscript.quit
End if
Set colAccounts = objWMIService.ExecQuery _
("Select * From Win32_Group Where Domain = '" & StrComputer & "'")
For Each objAccount in colAccounts
If objAccount.SID ="S-1-5-32-544" Then
Set ObjAdministrador = GetObject("WinNT://" & strComputer & "/" & objAccount.Name & "")
StrGroup = objAccount.Name
End if
Next
Local = "c:\temp\"
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
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
