[решено] Поиск пользователей с правами администраторов

Jonik-Mnimonik · Отправлено: **17:45, 09-11-2009** | #5

Цитата Petya V4sechkin:

Код:

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _ ("SELECT Domain, Name FROM Win32_Group WHERE LocalAccount = True AND SID = 'S-1-5-32-544'")
For Each objItem In colItems
    For Each objAdmin In objWMIService.ExecQuery _ ("ASSOCIATORS OF {Win32_Group.Domain='" & objItem.Domain & "',Name='" & objItem.Name & "'} WHERE AssocClass = Win32_GroupUser") Wcript.Echo objAdmin.Name 
    Next
 Next

»

К сожалению ни чего не выводит.(Пустая строка).

Цитата amel27:

Код:

Set objGRP = GetObject("WinNT://./Administrators,Group")
For Each objMember In objGRP.Members
    strList = strList & objMember.Name & vbCRLF
Next
WScript.Echo strList

»

Цитата amel27:

Код:

Set objWMI = GetObject("winmgmts:\\.\root\cimv2")
Set objNet = CreateObject("WScript.Network")
Set objREx = CreateObject("VBScript.RegExp")
objREx.Pattern = "^.*\.Domain=""([^""]+)"",Name=""([^""]+)"".*$"
objREx.IgnoreCase = True 
For Each objGroup In objWMI.ExecQuery _ ("SELECT * FROM Win32_Group WHERE LocalAccount=TRUE And SID='S-1-5-32-544'")
    For Each objItem In objWMI.ExecQuery _ ("SELECT * FROM Win32_GroupUser WHERE GroupComponent=""Win32_Group.Domain='"& objNet.ComputerName &"',Name='"& objGroup.Name &"'""") WScript.Echo objREx.Replace(objItem.PartComponent,"$1\$2")
    Next
Next

»

Работает. А можно ли эти скрипты запустить на удалённой машине?