[Sokoloff-X]

Попробуйте такой файл keychange.vbs:

Код:

ON ERROR RESUME NEXT
Dim VOL_PROD_KEY

if Wscript.arguments.count<1 then
   VOL_PROD_KEY = InputBox("Введите новый ключ продукта" & Chr(13) & "В формате:" & Chr(13) & "XXXX-XXXX-XXXX-XXXX-XXXX", "CD KEY Changer")
else
   VOL_PROD_KEY = Wscript.arguments.Item(0)
end if

VOL_PROD_KEY = Replace(VOL_PROD_KEY," ","")
 if VOL_PROD_KEY = "" then
   WScript.Echo "Ключ продукта не может быть пустым!" 
   wscript.Quit
 end if		     


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

   WScript.echo Obj.ProductID

Next