用VBScript一鍵移除WinXP盜版提示（更換Volume Key通過WGA驗證）

XP未通過正版驗證（WGA）會定期彈出「你可能是盜版軟體受害者」警告。利用微軟VBScript呼叫WMI Win32_WindowsProductActivation.SetProductKey方法，可將現有Key替換為有效VLK金鑰，通過驗證並消除提示。

腳本內容（存為 key.vbs）

ON ERROR RESUME NEXT
Dim VOL_PROD_KEY
If WScript.Arguments.Count < 1 Then
    VOL_PROD_KEY = InputBox("Powered By www.jb51.net" & vbCr & vbCr & _
        "本程式將自動替換目前Windows序號，通過微軟驗證完全正版。" & vbCr & vbCr & _
        "序號(OEM版無效，預設為XP VLK)：", "Windows XP序號自動更換器", "MRX3F-47B9T-2487J-KWKMF-RPWBY")
    If VOL_PROD_KEY = "" Then WScript.Quit
Else
    VOL_PROD_KEY = WScript.Arguments.Item(0)
End If
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.Number = 0 Then
        WScript.Echo "OK! 去微軟驗證吧！"
    Else
        WScript.Echo "替換失敗！輸入的CD-KEY與目前版本不符。"
        Err.Clear
    End If
Next

執行步驟

1. 記事本貼上上述碼→存為key.txt。
2. 資料夾選項→「檢視」→取消「隱藏已知檔案類型的副檔名」。
3. 將key.txt更名為key.vbs（確認圖示變為腳本圖示）。
4. 雙擊執行，輸入VLK金鑰（或用預設）→提示成功後去微軟網站驗證即可通過。

重要提醒

• 僅適用於大量授權版（VLK）安裝的XP，OEM/Retail版無效。
• 此法屬技術性繞過驗證，請尊重智慧財產權，條件允許請購買正版授權或升級至受支援系統（Win10/11）。