'
' WMI sсriрt - ChangeVLKey.vbs
'
' This sсriрt changes the product key on the computer
'
'Сохранить с расширением vbs
'
'Запускаем командой "c:\>ChangeVLKeySP1.vbs DVTVM-PKB3X-XXXXX-C62PY-XXXXX"
'но предварительноно добавляем ключ DTCUpdate типа DWORD и со значением = 1
'в ветку HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Updates\Windows Server  2003  
'***************************************************************************

ON ERROR RESUME NEXT


if WScript.arguments.count<1 then
WScript.echo "sсriрt can't run without VolumeProductKey argument"
WScript.echo "Correct usage: Csсriрt ChangeVLKey.vbs ABCD-XXXX-XXXX-XXXX-XXXX"
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