Alexander A Manaeff -

 
 

Как сменить ключ Windows XP

Все об администрировании рабочих станций Windows 95/98/NT/2000/XP/7/8. То, чего не найдешь в бескрайних просторах Интернета. Решения тех проблем, которые не решаются типовыми ответами, которые можно получить в техподдержке Майкрософта - а именно: переустановить продукт или купить какой-ть другой лицензионный диск.

Модератор: UncleFather

Как сменить ключ Windows XP

Сообщение UncleFather » 15 июл 2011 15:17, Пт

Бывает, необходимо сменить CD-Key у Windows XP. Можно, конечно, скачать какую-либо программку, но лично мне больше понравился способ:
Создаем файл VB скрипта, например changekey.vbs со следующим кодом:
Код: Выделить всё
'
' Сценарий WMI — Changekey.vbs
'
' Этот сценарий изменяет на компьютере ключ программного продукта
'
'***************************************************************************

ON ERROR RESUME NEXT

if Wscript.arguments.count<1 then
   Wscript.echo "Нельзя запустить сценарий без аргумента VolumeProductKey argument"
   Wscript.echo "Правильное использование: Cscript ChangeVLKey.vbs ABCDE-FGHIJ-KLMNO-PRSTU-WYQZX"
   Wscript.quit
end if

Dim VOL_PROD_KEY
VOL_PROD_KEY = Wscript.arguments.Item(0)
VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'удалить дефисы, если они есть
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegDelete "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\WPAEvents\OOBETimer" 'delete OOBETimer registry value
for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")

   result = Obj.SetProductKey (VOL_PROD_KEY)

   if err <> 0 then
      WScript.Echo Err.Description, "0x" & Hex(Err.Number)
      Err.Clear
   end if

Next


Либо качаем готовый файл скрипта:
changekey.rar
Changekey.vbs
(1.74 КБ) Скачиваний: 756


и запускаем его с указанием номера нового ключа, например:
Код: Выделить всё
changekey.vbs ХХХХХ-ХХХХХ-ХХХХХ-ХХХХХ-ХХХХХ


Если все прошло нормально, скрипт не выдаст никаких сообщений, а после перезагрузки Windows XP попросит повторной активации.
Аватара пользователя
UncleFather
Site Admin
 
Сообщения: 1256
Зарегистрирован: 17 авг 2004 17:20, Вт

Вернуться в Администрирование Windows Workstations

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

Alexander A Manaeff -
@Mail.ru .