Смена серийного номера на контроллере домена
Модератор: Модераторы
Сообщений: 3
• Страница 1 из 1
Расскажите пжста как сменить|поменять серейный номер Windows 2003 Server безболезненно.
Знаю, что можно пользовать утилитку sysprep, но тогда теряется SID системы :-/ Может это и не страшно, но будет ли всё в порядке с AD и последующим подключением пользователей к домену.
p.s.
Сетка не очень большая -- один контроллер домена.
Знаю, что можно пользовать утилитку sysprep, но тогда теряется SID системы :-/ Может это и не страшно, но будет ли всё в порядке с AD и последующим подключением пользователей к домену.
p.s.
Сетка не очень большая -- один контроллер домена.
- Xenon[BMSTU]
- Активный пользователь
- Сообщения: 774
- Зарегистрирован: 20 май 2004, 09:23
- Откуда: Москва
скрипт есть
ON ERROR RESUME NEXT
Dim VOL_PROD_KEY
VOL_PROD_KEY = "сюда ввести ключик"
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any
for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf _
("win32_WindowsProductActivation")
result = Obj.SetProductKey (VOL_PROD_KEY)
if err <> 0 then
if Hex(Err.Number) = "80041016" then
WScript.Echo "Windows is activated, de-activate it and try again"
else if Hex(Err.Number) = "80041001" then
WScript.Echo "Key cannot be changed, pass it through 'msoobe /a'"
else WScript.Echo Err.Description, "0x" & Hex(Err.Number)
end if
end if
Err.Clear
else WScript.Echo "Product Key is successfully changed"
end if
Next
ON ERROR RESUME NEXT
Dim VOL_PROD_KEY
VOL_PROD_KEY = "сюда ввести ключик"
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any
for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf _
("win32_WindowsProductActivation")
result = Obj.SetProductKey (VOL_PROD_KEY)
if err <> 0 then
if Hex(Err.Number) = "80041016" then
WScript.Echo "Windows is activated, de-activate it and try again"
else if Hex(Err.Number) = "80041001" then
WScript.Echo "Key cannot be changed, pass it through 'msoobe /a'"
else WScript.Echo Err.Description, "0x" & Hex(Err.Number)
end if
end if
Err.Clear
else WScript.Echo "Product Key is successfully changed"
end if
Next
Сообщений: 3
• Страница 1 из 1
Вернуться в Сетевые операционные системы
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 45