Как сменить ключ windows xp

Понадобилось мне сменить ключ windows xp, на некоторых машинах, где была установлена windows xp лишняя, не из того набора, в общем самое лучшее решение как обычно лежит на сайте поддержки microsoft, но оказалось там все хорошо видимо из за переводов.На сайте поддержки находится скрипт

'
' Сценарий 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

В оригинальном последняя строка Далее, непонятно зачем они перевели или почему так написано, должно быть Next

После этого скрипт уже работоспособен и для того чтобы сменить ключ необходимо сохранить данный скрипт в файл vbs например c:/changekey.vbs
и запуск осуществляется командой

c:/changekey.vbs НОМЕРКЛЮЧА

Прокомментировать

XHTML: Вы можете использовать эти тэги для форматирования текста: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>