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

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


Модератор: UncleFather

Аватара пользователя
UncleFather
Site Admin
Сообщения: 1503
Зарегистрирован: 17 авг 2004 16:20, Вт
Контактная информация:

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

Сообщение UncleFather »

Бывает, необходимо сменить 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 КБ) 1101 скачивание

и запускаем его с указанием номера нового ключа, например:

Код: Выделить всё

changekey.vbs ХХХХХ-ХХХХХ-ХХХХХ-ХХХХХ-ХХХХХ

Если все прошло нормально, скрипт не выдаст никаких сообщений, а после перезагрузки Windows XP попросит повторной активации.


Alexander A. Manaeff©

Понравилась статья? Будем крайне признательны за репосты в соцсетях! Материально поддержать проект можно здесь

Мои странички:
ВКонтакте
Одноклассники
Youtube
Facebook
Instagram

Изображение
Изображение
Изображение
Изображение