И под кем был запущен скрипт?!
MsgBox(64, "UserName", @UserName)
$strComputer = "."
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2")
$colItems = $objWMIService.ExecQuery("Select * from Win32_Group Where LocalAccount = True")
$sResult = ''
For $objItem in $colItems
$sResult &= "Name: " & $objItem.Name & @CRLF
$sResult &= "SID: " & $objItem.SID & @CRLF
Next
MsgBox(0, '', $sResult)
$strComputer = "."
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2")
$colItems = $objWMIService.ExecQuery("Select Name,SID From Win32_UserAccount")
$sResult = ''
For $objItem in $colItems
$sResult &= "Name: " & $objItem.Name & @CRLF
$sResult &= "SID: " & $objItem.SID & @CRLF
Next
MsgBox(0, '', $sResult)
Закомментировал одну строку. Список пользователей.Есть нароботки
$strComputer = "."
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2")
$colItems = $objWMIService.ExecQuery("Select Name,SID From Win32_UserAccount")
$sResult = ''
For $objItem in $colItems
$sResult &= "Name: " & $objItem.Name & @CRLF
;$sResult &= "SID: " & $objItem.SID & @CRLF
Next
MsgBox(0, '', $sResult)
net user имя_пользователя
net user *username*
;получить список групп
$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
$sUser = @UserName
$objADSI=ObjGet("WinNT://./"&$sUser)
$obj = $objADSI.Groups
$temp = ""
For $element In $obj
$temp &= $element.Name & @CRLF
Next
MsgBox(0, "Членство в группах", "Пользователь <" & $sUser & "> принадлежит к группе:" & @CRLF & $temp)
#include <Array.au3>
$sStartUser = @UserName
MsgBox(0, "Запуск от имени", "Пользователь: " & $sStartUser & @CRLF & "Группа: " & GroupInfo($sStartUser))
Dim $Array[1]
$Container=ObjGet("WinNT://.")
_ArrayAdd( $Array,"User")
$Container.Filter = $Array
$Info = ""
For $User in $Container
$users_d = $User.Name
$sUser = $User.Name
$Info &= "Пользователь: " & $users_d & " ::: Группа: " & GroupInfo($sUser) & @CRLF
Next
MsgBox(0, "Пользователи и группы", $Info)
Func GroupInfo($sUser)
$objADSI=ObjGet("WinNT://./"&$sUser)
$obj = $objADSI.Groups
$InfoGroup = ""
For $element In $obj
$InfoGroup &= $element.Name
Next
If $InfoGroup = "" Then
$InfoGroup = "Нет группы"
EndIf
Return $InfoGroup
EndFunc