Инструкция по смене ключа продукта (cd-key) с использованием vbs скрипта.
Как пользоваться скриптами, необходимо сначала их распаковать, к примеру в корень диска C: и вызвав команду выполнить (Win+R) набрать команду:
| 1 | c:\changevlkeysp1.vbs 12345-12345-12345-12345-12345 |
Где 12345-12345-12345-12345-12345 необходимо заменить на ваш Cd-KEY
- ChangeVLKeySP1.vbs — предназначен для смены ключа под Windows XP SP1 или выше
- ChangeVLKey2600.vbs — Свою очередь, предназначен для систем под управлением WIndows XP без сервиспаков.
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | ' ' WMI Script - ChangeVLKey.vbs ' ' This script changes the product key on the computer ' '*************************************************************************** ON ERROR RESUME NEXT if Wscript.arguments.count<1 then Wscript.echo "Script can't run without VolumeProductKey argument" Wscript.echo "Correct usage: 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,"-","")'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 WScript.Echo Err.Description, "0x" & Hex(Err.Number) Err.Clear end if Next |
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 | ' ' WMI Script - ChangeVLKey.vbs ' ' This script changes the product key on the computer ' '*************************************************************************** ON ERROR RESUME NEXT if Wscript.arguments.count<1 then Wscript.echo "Script can't run without VolumeProductKey argument" Wscript.echo "Correct usage: 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,"-","")'remove hyphens if any 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 |