| Windows XP/2003 序列号更换方法 |
|
| 添加日期：2006-11-7 22:27:54 [大 中 小] |
|
本程序由脚本命令编写而成。
引用了MS官方提供的修改 CD-KEY 的脚本，自己修改加入对话框方便使用。
经测试，可以修改 XP、XPSP1、XPSP2、2003 的 CD-KEY （零售版、VOL版），修改后立即生效无须重新启动。
由于修改自 MS 官方的脚本，因此是绝对安全的。
感兴趣的可以研究一下。
将以下源代码另存为“Windows序列号修改.VBS”，双击这个文件即可
源代码：
'
' WMI Script - ChangeVLKey.vbs
'
' This script changes the product key on the computer (XP SP1 SP2 2003)
'
' Made by zyling.
'***************************************************************************
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 序列号更换工具","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,"-","") '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 |
|
| 出处：论坛转载 作者：佚名 点击： | |
|
