變更 Windows XP 的大量授權產品金鑰

微軟官方網站說明：
http://support.microsoft.com/kb/328874/zh-tw

1. 新增一個文字檔，取名為 ChangeXPKey.vbs
2. 將以下 VB Script的內容，複製，貼到剛剛的文字檔裡。
3. 將12345-12345....的序號，改成正確的授權金鑰，存檔。
4. 點兩下 chagnexpkey.vbs ，即可完成變更授權金鑰。

VB Script:

ON ERROR RESUME NEXT

Dim VOL_PROD_KEY

If Wscript.arguments.count<1 vol_prod_key = "12345-12345-12345-12345-12345" color="#009900">'改成正確的授權金鑰
Else
VOL_PROD_KEY = Wscript.arguments.Item(0)
End If

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