[amel27]

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

можно:

Код:

strComputer = "MyComputer"
strGroup = "Администраторы"

Set objGRP = GetObject("WinNT://"& strComputer &"/"& strGroup &",Group")

For Each objMember In objGRP.Members 
  strList = strList & objMember.Name & vbCRLF
Next 

WScript.Echo strList

Код:

strComputer = "MyComputer"

Set objWMI = GetObject("winmgmts:\\"& strComputer &"\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='"& strComputer &"',Name='"& objGroup.Name &"'""")
      WScript.Echo objREx.Replace(objItem.PartComponent,"$1\$2")
   Next
Next