Windows XP Volume License Key Changer

[琥珀]

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

1. 下載 key.vbs 檔案。
2. 下載 legitcheck.hta 檔案。
3. 下載 MGADiag.exe 檔案。

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

[threesecond]

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

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 保存，避免不同的系統語言設定，造成文字顯示上的問題。

[FYI]

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

[goldie]

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

[superlili]

感謝分享
特別的工具