ON ERROR RESUME NEXT Dim VOL_PROD_KEY if Wscript.arguments.count1 then VOL_PROD_KEY=InputBox(本程序能幫助您更換 WindowsXP 的序列號。&vbCr&vbCr&序列號由您自己尋找并輸入。下面列出的不一定是您當(dāng)前用的序列號，僅作格式參考。&vbCr&vbCr&請輸入新的序列號：,WindowsXP序列號更換器,MRX3F-47B9T-2487J-KWKMF-RPWBY) 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 修改成功。請點擊附帶的網(wǎng)址到微軟網(wǎng)站進行驗證。祝您好運！ end if if err 0 then Wscript.echo 替換失敗！您輸入的序列號有誤。 Err.Clear end if Next 然后保存為 XP序列號替換器.vbs 運行就OK了

取消

評論

總結(jié)

以上是生活随笔為你收集整理的服务器开机只显示cdm,电脑开机黑屏出现cdm.exe对话框怎么处理?!我的扣扣的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。