一個(gè)可以更換windows xp or 2003的序列號(hào)的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("使用說(shuō)明(OEM版無(wú)效)："&vbCr&vbCr&" 本腳本程序?qū)⑿薷漠?dāng)前 Windows 的序列號(hào)。請(qǐng)先使用算號(hào)器算出匹配當(dāng)前 Windows 的序列號(hào)，復(fù)制并粘貼到下面空格中。"&vbCr&vbCr&"輸入序列號(hào)(默認(rèn)為 XP VLK)：","Windows XP/2003 序列號(hào)更換工具","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 修改成功。請(qǐng)檢查系統(tǒng)屬性。"
end if
if err <> 0 then
Wscript.echo "修改失?。≌?qǐng)檢查輸入的 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("使用說(shuō)明(OEM版無(wú)效)："&vbCr&vbCr&" 本腳本程序?qū)⑿薷漠?dāng)前 Windows 的序列號(hào)。請(qǐng)先使用算號(hào)器算出匹配當(dāng)前 Windows 的序列號(hào)，復(fù)制并粘貼到下面空格中。"&vbCr&vbCr&"輸入序列號(hào)(默認(rèn)為 XP VLK)：","Windows XP/2003 序列號(hào)更換工具","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 修改成功。請(qǐng)檢查系統(tǒng)屬性。"
end if
if err <> 0 then
Wscript.echo "修改失?。≌?qǐng)檢查輸入的 CD-KEY 是否與當(dāng)前 Windows 版本相匹配。"
Err.Clear
end if
Next
相關(guān)文章
教你用vbs實(shí)現(xiàn)微信自動(dòng)發(fā)送消息功能
無(wú)意中接觸了vbs這個(gè)腳本感覺(jué)挺好玩的,這篇文章主要給大家介紹了關(guān)于如何用vbs實(shí)現(xiàn)微信自動(dòng)發(fā)送消息功能的相關(guān)資料,文中通過(guò)實(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è)人問(wèn)過(guò)我怎樣用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 剪貼板抓取URL并在瀏覽器中打開(kāi)
VBScript如何從剪貼板中抓取一個(gè)URL然后在瀏覽器中打開(kāi)該 Web 站點(diǎn)2008-11-11
這篇文章主要介紹了使用 iisext.vbs 啟用應(yīng)用程序的相關(guān)資料,需要的朋友可以參考下2014-07-07
添加網(wǎng)站到安全站點(diǎn).設(shè)置安全站點(diǎn)打開(kāi)ActiveX時(shí)提示.去頁(yè)眉頁(yè)腳的vbs代碼
主要是解決在使用WebBrowser打印時(shí)，得先設(shè)置IE安全性的問(wèn)題，是客戶端工具。2009-07-07
用vbs實(shí)現(xiàn)解除注冊(cè)表CMD、Regedit、Taskmgr限制的腳本代碼
vbs解除CMD、Regedit、Taskmgr限制的代碼2008-06-06
電腦瀏覽器記住密碼功能好蛋疼~有時(shí)候不好用~~登錄CMCC-EDU的時(shí)候老是要輸入帳號(hào)。。看了看登錄頁(yè)面的網(wǎng)頁(yè)源碼~~擼起個(gè)Vbs腳本~讀取配置文件，簡(jiǎn)單實(shí)現(xiàn)了自己登錄CMCC-EDU,把帳號(hào)存在同級(jí)目錄下就好,需要的朋友可以參考下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 注冊(cè)表實(shí)現(xiàn)代碼。需要用vbs操作注冊(cè)表的朋友可以看看。2009-05-05