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.vbs ХХХХХ-ХХХХХ-ХХХХХ-ХХХХХ-ХХХХХ
Если все прошло нормально, скрипт не выдаст никаких сообщений, а после перезагрузки Windows XP попросит повторной активации.
Бывает, необходимо сменить CD-Key у Windows XP. Можно, конечно, скачать какую-либо программку, но лично мне больше понравился [url=http://evilzipik.ru/windows/kak-smenit-klyuch-windows-xp.html]способ[/url]:
Создаем файл VB скрипта, например changekey.vbs со следующим кодом:
[code]'
' Сценарий 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[/code]
Либо качаем готовый файл скрипта:
[attachment=0]changekey.rar[/attachment]
и запускаем его с указанием номера нового ключа, например:
[code]changekey.vbs ХХХХХ-ХХХХХ-ХХХХХ-ХХХХХ-ХХХХХ[/code]
Если все прошло нормально, скрипт не выдаст никаких сообщений, а после перезагрузки Windows XP попросит повторной активации.