Работа с локальными пользователями системы через COM объекты

; создание пользователя
$UserName = "New_User"
$Password = "1"
$strComputer = @ComputerName
$objUser = ObjGet("WinNT://" & $strComputer & "/" & $UserName)
If @Error then
    $colAccounts = ObjGet("WinNT://" & $strComputer & "")
    $objUser = $colAccounts.Create("user", $UserName)
    $objUser.SetPassword ($Password)
    $objUser.Put ("Fullname", "New_User"); полное имя пользователя
    $objUser.Put ("Description", "New_User description"); описание пользователя
    $objUser.SetInfo
EndIf

;Включение опции "Срок действия пароля не ограничен" 
Const $ADS_UF_DONT_EXPIRE_PASSWD = 0X10000
$oldFlags = $objUser.Get("UserFlags")
$newFlags = BitOR($oldFlags,$ADS_UF_DONT_EXPIRE_PASSWD)
$objUser.Put ("UserFlags", $newFlags) ;expire the password
$objUser.SetInfo

;Добавление пользователя в группу
$objGroup = ObjGet("WinNT://" & $strComputer & "/Администраторы,group")
$objGroup.Add($objUser.ADsPath)

$objNetwork = ObjCreate("WScript.NetWork")
$strComputer = $objNetwork.ComputerName
$colAccounts = ObjGet("WinNT://" & $strComputer & "")
Dim $aFilter[1] = ['user']
$colAccounts.Filter = $aFilter
$sUsers = ''
For $objUser in $colAccounts
    $sUsers &= $objUser.Name & @CRLF
Next
ConsoleWrite($sUsers)

$strComputer = "."
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2")
$colItems = $objWMIService.ExecQuery("Select * from Win32_Group  Where LocalAccount = True")
$sResult = ''
For $objItem in $colItems
    ;$sResult &= "Caption: " & $objItem.Caption & @CRLF
    ;$sResult &= "Description: " & $objItem.Description & @CRLF
    ;$sResult &= "Domain: " & $objItem.Domain & @CRLF
    ;$sResult &= "Local Account: " & $objItem.LocalAccount & @CRLF
    $sResult &= "Name: " & $objItem.Name & @CRLF
    ;$sResult &= "SID: " & $objItem.SID & @CRLF
    ;$sResult &= "SID Type: " & $objItem.SIDType & @CRLF
    ;$sResult &= "Status: " & $objItem.Status & @CRLF
Next
MsgBox(0, '', $sResult)