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

Ответить


Этот вопрос предназначен для предотвращения автоматической отправки форм спам-ботами.
Смайлики
:| :) :wink: :D :lol: :( :cry: 8) :o :oops: :? :x :P :evil: :twisted: :roll: :!: :?: :idea: :arrow: :mrgreen:
Ещё смайлики…

Markdown is OFF

BBCode ВКЛЮЧЁН
[img] ВКЛЮЧЁН
[url] ВКЛЮЧЁН
Смайлики ВКЛЮЧЕНЫ

Обзор темы
   

Развернуть Обзор темы: Как сменить ключ Windows XP

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

UncleFather » 15 июл 2011 14: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 КБ) 1101 скачивание

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

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

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

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


Вернуться к началу