求windowsXP换号器

显示全部楼层 · 发表于 2007-1-28 18:05:56

本人现需将XP序列号更换,但无windowsXP换号器,请给一下.
XP序列号:
CM3HY-26VYW-6JRYC-X66GX-JVY2D          PID:xxxxx-640-1479176-xxxxx
DDQXW-THQ8M-79V6K-2YFGH-R793Q          PID:xxxxx-640-0174977-xxxxx
DP7CM-PD6MC-6BKXT-M8JJ6-RPXGJ          PID:xxxxx-640-1464517-xxxxx
F4297-RCWJP-P482C-YY23Y-XH8W3             PID:xxxxx-640-0636015-xxxxx
HH7VV-6P3G9-82TWK-QKJJ3-MXR96          PID:xxxxx-640-1153263-xxxxx
HCQ9D-TVCWX-X9QRG-J4B2Y-GR2TT          PID:xxxxx-640-2449187-xxxxx

显示全部楼层 · 发表于 2007-1-28 18:21:37

帮你传一个！

显示全部楼层 · 发表于 2007-1-28 18:26:11

自己做一个咯
新建文本文档
输入:

ON ERROR RESUME NEXT

Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
VOL_PROD_KEY=InputBox("白白制作"&vbCr&vbCr&" 本程序将自动替换你当前 Windows 的序列号,通过微软验证完全正版。"&vbCr&vbCr&"序列号(OEM版无效,默认版本为 XP VLK)：","Windows XP序列号自动更换器","在此输入序列号")
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 "OK！去微软验证吧！"
end if

if err <> 0 then
Wscript.echo "替换失败！输入的 CD-KEY 与当前的版本不匹配。"
Err.Clear
end if

Next

然后保存,并将后缀名改为.VBS 确定然后打开就可以用了