利用vbs腳本編寫Windows XP/2003序列號更改器

ON ERROR RESUME NEXT

Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
VOL_PROD_KEY =InputBox("使用說明(OEM版無效)："&vbCr&vbCr&" 本腳本程序將修改當前 Windows 的序列號。請先使用算號器算出匹配當前 Windows 的序列號，復制并粘貼到下面空格中。"&vbCr&vbCr&"輸入序列號(默認為 XP VLK)：","Windows XP/2003 序列號更換工具","11111-11111-11111-11111-11111")
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

總結

以上是生活随笔為你收集整理的利用vbs脚本编写Windows XP/2003序列号更改器的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。