Что нового

Вывод компьютера из домена в рабочую группу

Scampy

Новичок
Сообщения
50
Репутация
0
Добрый день всем!
Есть часть скрипта по выводу ПК из домена в рабочую группу. Как сделать чтоб ПК выводился в группу 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
 
Верх