Хабр Курсы для всех
РЕКЛАМА
Практикум, Хекслет, SkyPro, авторские курсы — собрали всех и попросили скидки. Осталось выбрать!
Обычно все вроде как раз наоборот мигрируют — в первую очередь с целью сэкономить на лицензии Windows-сервера.
Const DOMAIN_JOIN_IF_JOINED = 32
Const NETSETUP_ACCT_DELETE = 2
Set objNetwork = CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName
Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\" & strComputer & "\root\cimv2:Win32_computerSystem.Name='" & strComputer & "'")
intReturn = objComputer.JoinDomainOrWorkgroup(<имя нового домена>, <пароль учётки в правом введения ПК в новый домен>, <учётная запись нового домена с правом введения ПК в домен>, <organizationalUnit для размещения объекта ПК в новом домене> , JOIN_DOMAIN + DOMAIN_JOIN_IF_JOINED)
Set objWhs = WScript.CreateObject("WScript.Shell")
objWhs.Run "shutdown /r /t:15"
Миграция домена с SAMBA 3 на ActiveDirectory (опыт миграции домена без простоя)