導(dǎo)航菜單

xp怎么更換序列號?筆記本xp系統(tǒng)更換序列號的方法

導(dǎo)讀 我們知道電腦系統(tǒng)的序列號是系統(tǒng)供應(yīng)商給系統(tǒng)的一個識別碼,該序列號可以防止用戶的系統(tǒng)被盜用,不過有用戶因?yàn)樘厥庠蛐枰男蛄刑枴D?

我們知道電腦系統(tǒng)的序列號是系統(tǒng)供應(yīng)商給系統(tǒng)的一個識別碼,該序列號可以防止用戶的系統(tǒng)被盜用,不過有用戶因?yàn)樘厥庠蛐枰男蛄刑枴D敲磝p怎么更改序列號呢?下面小編跟大家分享下關(guān)于筆記本xp系統(tǒng)更換序列號的方法。有興趣了解的用戶不妨學(xué)習(xí)下!

方法如下:

1、在xp系統(tǒng)電腦桌面上右鍵點(diǎn)擊新建一個文本文檔;

2、將下列代碼拷入文本文檔中;

ON ERROR RESUME NEXT

Dim VOL_PROD_KEY

if Wscript.arguments.count<1 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 "修改成功。請點(diǎn)擊附帶的網(wǎng)址到微軟網(wǎng)站進(jìn)行驗(yàn)證。祝您好運(yùn)!"

end if

if err <> 0 then

Wscript.echo "替換失??!您輸入的序列號有誤。"

Err.Clear

end if

Next

3、點(diǎn)擊文本文檔左上角的“文件”標(biāo)簽,選擇“另存為”選項(xiàng);

4、修改文件名“更換 WindowsXP 的序列號.vbs”,并按保存鍵;

5、雙擊打開已生成的文件,輸入序列號點(diǎn)確定;

6、如果輸入的序列號有誤,則會提示“替換失??!您輸入的序列號有誤?!?/p>

免責(zé)聲明:本文由用戶上傳,如有侵權(quán)請聯(lián)系刪除!

猜你喜歡:

最新文章: