Гыгы
Кстати, насчет перевода, у MS нашел такой прикол. Всем известная статья по смене ключа в Windows XP/2003:
http://support.microsoft.com/kb/328874Читаем статью на русском, копипастим оттуда скрипт и... нифига он не работает
А все потому, что Next в скрипте в самом конце зачем-то перевели на русский
ChangeVLKeySP1.vbs
'
' Сценарий WMI — ChangeVLKey.vbs
'
' Этот сценарий изменяет на компьютере ключ программного продукта
'
'***************************************************************************
ON ERROR RESUME NEXT
if Wscript.arguments.count<1 then
Wscript.echo "Нельзя запустить сценарий без аргумента VolumeProductKey"
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,"-","") 'удалить дефисы, если они есть
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
Далее