;получить список групп
$strComputer = "."
$objWMIService1 = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2")
$colItems1 = $objWMIService1.ExecQuery("Select * from Win32_Group Where LocalAccount = True")
$sResult1 = ''
For $objItem1 in $colItems1
$sResult1 &= $objItem1.Name & @CRLF
Next
MsgBox(0, "Groups", $sResult1)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;члены определенной группы
Call("Test", "Администраторы")
Call("Test", "Гости")
Call("Test", "Пользователи")
Call("Test", "HelpServicesGroup")
Func Test($sGroup)
$objWMIService2 = ObjGet("WinNT://./"&$sGroup&",Group")
$colItems2 = $objWMIService2.Members
$sResult2 = ''
For $objItem2 In $colItems2
$sResult2 &= $objItem2.Name & @CRLF
Next
MsgBox(0, $sGroup, $sResult2)
EndFunc