Windows: Смена CD-KEY с помощью VBS скрипта

Инструкция по смене ключа продукта (cd-key) с использованием vbs скрипта.

Как пользоваться скриптами, необходимо сначала их распаковать, к примеру в корень диска C: и вызвав команду выполнить (Win+R) набрать команду:
c:\changevlkeysp1.vbs 12345-12345-12345-12345-12345

Где 12345-12345-12345-12345-12345 необходимо заменить на ваш Cd-KEY

ChangeVLKeySP1.vbs — предназначен для смены ключа под Windows XP SP1 или выше
ChangeVLKey2600.vbs — Свою очередь, предназначен для систем под управлением WIndows XP без сервиспаков.

ChangeVLKeySP1.vbs

'  
' 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

ChangeVLKey2600.vbs

'  
' 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

Добавить комментарий