Добрый день всем!
Есть часть скрипта по выводу ПК из домена в рабочую группу. Как сделать чтоб ПК выводился в группу KAZN? Спасибо
Есть часть скрипта по выводу ПК из домена в рабочую группу. Как сделать чтоб ПК выводился в группу KAZN? Спасибо
Код:
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <MsgBoxConstants.au3>
#include <StaticConstants.au3>
#include <File.au3>
#include <ButtonConstants.au3>
#include <Constants.au3>
$GUI = GUICreate('тест', 200, 200)
$ButtonUnDomen = GUICtrlCreateButton("Вывести", 50, 50, 90, 25)
$strAdminPass = '12345678'
$strAdminAccount = 'admin'
$strComputer = "."
$strDomainName = "my.domain.ru"
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $ButtonUnDomen
$objWMIService = ObjGet("winmgmts:" & "{impersonationLevel=impersonate}!\\" & $strComputer & "\root\cimv2")
$colCompSystems = $objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem")
For $objCompSystem In $colCompSystems
$intJoinDomain = $objCompSystem.UnJoinDomainOrWorkgroup($strAdminPass, $strDomainName & '\' & $strAdminAccount, '')
Next
MsgBox(0, "", "Готово! Перезагрузитесь!")
Case -3
Exit
EndSwitch
WEnd