最近需要變更產品金鑰，參考了微軟的程式範例，寫了一個 VBS 檔案，使用起來滿方便的。

1. 下載 key.vbs 檔案。
2. 下載 legitcheck.hta (http://www.microsoft.com/genuine/downloads/GenerateHTA.aspx?displaylang=zh-tw&sGuid=470c706c-9507-43d3-ba48-525b0b30c99c&page=Validate) 檔案。
3. 下載 MGADiag.exe (http://download.microsoft.com/download/7/B/1/7B1C3ADA-723B-4CC8-8949-7250397FA9CD/MGADiag.exe) 檔案。

變更後，系統不必重新啟動，立即驗證新設定。

贊助商連結

微軟本來就有提供現成的東西了

ON ERROR RESUME NEXT

Dim VOL_PROD_KEY


VOL_PROD_KEY = "XXXXX-XXXXX-XXXXX-XXXXX-XXXXX"

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 "您的產品金鑰變更成功。"
Else
Wscript.Echo "修改失敗！請檢查輸入的產品金鑰是否與當前Windows版本相匹配。"
WScript.Echo Err.Description, "0x" & Hex(Err.Number)
Err.Clear
End If
Next

把序號填進去，檔名存為 .vbe，執行即可收工。
免重新開機，免執行檔。

嗯，知道微軟有提供。自己參考了許多範本，選一個較滿意的版本。

可用互動式操作，或是命令行執行。使用 Unicode 保存，避免不同的系統語言設定，造成文字顯示上的問題。

檔案應該很小吧! 琥珀兄能否以改以code 語法直接貼在文章中? 否則非PCZONE 網友無法下載

真的不用重開，好用！
謝謝原PO啊 ^^

感謝分享
特別的工具