SOGO論壇
  登入   註冊   找回密碼
查看: 1698|回覆: 4
列印 上一主題 下一主題

[教學] 更改系統的序號 [複製連結]

Rank: 4

狀態︰ 離線
跳轉到指定樓層
1
發表於 2009-3-3 00:45:50 |只看該作者 |倒序瀏覽
基於某些原因可能需要更改系統的序號
通常作法是修改登錄檔

步驟:
1.首先要開啟記事本,將下列程式複製到記事本,並且存檔為winkey.vbs
2.然後點擊winkey.vbs即可修改序號

ON ERROR RESUME NEXT
Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
VOL_PROD_KEY=InputBox("使用說明(OEM版無效):"&vbCr&vbCr&" 本腳本程序將修改當前 Windows 的金鑰序號。請先複製好您欲更改之新金鑰序號,並粘貼到下面空格中,按下確定即可。"&vbCr&vbCr&"輸入序列號:","Windows XP/2003 金鑰更換工具 Silent World","KJQJH-48B24-HG6VG-YQWTV-P6R2Y")
if VOL_PROD_KEY="" then
Wscript.quit
end if
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 "您的 Windows CD-KEY 修改成功。"
end if
if err <> 0 then
Wscript.echo "修改失敗!請檢查輸入的 CD-KEY 是否與當前 Windows 版本相匹配。"
Err.Clear
end if
next
喜歡嗎?分享這篇文章給親朋好友︰
               感謝作者     

Rank: 8Rank: 8

狀態︰ 離線
2
發表於 2009-3-15 21:02:40 |只看該作者
太棒了,應該可以用得到喔!

Rank: 3Rank: 3

狀態︰ 離線
3
發表於 2009-3-16 12:41:28 |只看該作者
太好了不管用不用學起來練功夫
感謝版主

Rank: 5Rank: 5

狀態︰ 離線
4
發表於 2009-3-17 16:49:02 |只看該作者
這招可以記一下, 或許拿天出事可能會派上用場!

養兵千日,用在一時阿!

Rank: 4

狀態︰ 離線
5
發表於 2009-4-29 16:13:44 |只看該作者
看不太懂,不過可以複製起來以後有需要時可以參考便更
請注意︰利用多帳號發表自問自答的業配文置入性行銷廣告者,將直接禁訪或刪除帳號及全部文章!
您需要登錄後才可以回覆 登入 | 註冊


本論壇為非營利自由討論平台,所有個人言論不代表本站立場。文章內容如有涉及侵權,請通知管理人員,將立即刪除相關文章資料。侵權申訴或移除要求:abuse@oursogo.com

GMT+8, 2025-1-10 07:41

© 2004-2025 SOGO論壇 OURSOGO.COM
回頂部