一個(gè)可以更換windows xp or 2003的序列號的vbs腳本
更新時(shí)間：2007年02月26日 00:00:00 作者：
將以下代碼復(fù)制到文本文件，另存為vbs文件執(zhí)行就可以了：
'For WinXP SP1 SP2 ,Windows Server 2003
'***************************************************************************
ON ERROR RESUME NEXT
Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
VOL_PROD_KEY=InputBox("使用說明(OEM版無效)："&vbCr&vbCr&" 本腳本程序?qū)⑿薷漠?dāng)前 Windows 的序列號。請先使用算號器算出匹配當(dāng)前 Windows 的序列號，復(fù)制并粘貼到下面空格中。"&vbCr&vbCr&"輸入序列號(默認(rèn)為 XP VLK)：","Windows XP/2003 序列號更換工具","PJVCV-XCPPF-6GTKK-QXRPY-FBKGJ")
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,"-","")
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 修改成功。請檢查系統(tǒng)屬性。"
end if
if err <> 0 then
Wscript.echo "修改失??！請檢查輸入的 CD-KEY 是否與當(dāng)前 Windows 版本相匹配。"
Err.Clear
end if
Next
復(fù)制代碼 代碼如下:
'For WinXP SP1 SP2 ,Windows Server 2003
'***************************************************************************
ON ERROR RESUME NEXT
Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
VOL_PROD_KEY=InputBox("使用說明(OEM版無效)："&vbCr&vbCr&" 本腳本程序?qū)⑿薷漠?dāng)前 Windows 的序列號。請先使用算號器算出匹配當(dāng)前 Windows 的序列號，復(fù)制并粘貼到下面空格中。"&vbCr&vbCr&"輸入序列號(默認(rèn)為 XP VLK)：","Windows XP/2003 序列號更換工具","PJVCV-XCPPF-6GTKK-QXRPY-FBKGJ")
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,"-","")
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 修改成功。請檢查系統(tǒng)屬性。"
end if
if err <> 0 then
Wscript.echo "修改失??！請檢查輸入的 CD-KEY 是否與當(dāng)前 Windows 版本相匹配。"
Err.Clear
end if
Next
相關(guān)文章
教你用vbs實(shí)現(xiàn)微信自動(dòng)發(fā)送消息功能
無意中接觸了vbs這個(gè)腳本感覺挺好玩的,這篇文章主要給大家介紹了關(guān)于如何用vbs實(shí)現(xiàn)微信自動(dòng)發(fā)送消息功能的相關(guān)資料,文中通過實(shí)例代碼介紹的非常詳細(xì),需要的朋友可以參考下2022-04-04
用VBS控制鼠標(biāo)的實(shí)現(xiàn)代碼（獲取鼠標(biāo)坐標(biāo)、鼠標(biāo)移動(dòng)、鼠標(biāo)單擊、鼠標(biāo)雙擊、鼠標(biāo)右擊）
不止一個(gè)人問過我怎樣用VBS控制鼠標(biāo)操作，比如：怎么用VBS獲取鼠標(biāo)指針的坐標(biāo)位置？怎么用VBS移動(dòng)鼠標(biāo)2011-10-10
遠(yuǎn)程或本地獲取系統(tǒng)信息的腳本RGIS.vbs
遠(yuǎn)程或本地獲取系統(tǒng)信息的腳本RGIS.vbs...2007-02-02
VBScript如何從剪貼板中抓取一個(gè)URL然后在瀏覽器中打開該 Web 站點(diǎn)2008-11-11
這篇文章主要介紹了使用 iisext.vbs 啟用應(yīng)用程序的相關(guān)資料,需要的朋友可以參考下2014-07-07
添加網(wǎng)站到安全站點(diǎn).設(shè)置安全站點(diǎn)打開ActiveX時(shí)提示.去頁眉頁腳的vbs代碼
主要是解決在使用WebBrowser打印時(shí)，得先設(shè)置IE安全性的問題，是客戶端工具。2009-07-07
用vbs實(shí)現(xiàn)解除注冊表CMD、Regedit、Taskmgr限制的腳本代碼
vbs解除CMD、Regedit、Taskmgr限制的代碼2008-06-06
電腦瀏覽器記住密碼功能好蛋疼~有時(shí)候不好用~~登錄CMCC-EDU的時(shí)候老是要輸入帳號。?？戳丝吹卿涰撁娴木W(wǎng)頁源碼~~擼起個(gè)Vbs腳本~讀取配置文件，簡單實(shí)現(xiàn)了自己登錄CMCC-EDU,把帳號存在同級目錄下就好,需要的朋友可以參考下2018-04-04
vbScript on error resume next容錯(cuò)使用心得
在vbscript中，使用on error resume next處理錯(cuò)誤，當(dāng)使用這段代碼時(shí)，程序?qū)⒑雎援a(chǎn)生的錯(cuò)誤繼續(xù)運(yùn)行后面的代碼。本文就使用心得作個(gè)小結(jié)，供有需要的朋友參考2009-02-02
vbs 注冊表實(shí)現(xiàn)代碼。需要用vbs操作注冊表的朋友可以看看。2009-05-05