| lee 举人  头衔 --  精华 0 积分 208 威望 24 帖子 20 删除 0 注册 06-03-14 特长 来自 性别 帅哥 |
XPON ERROR RESUME NEXT Dim VOL_PROD_KEY if Wscript.arguments.count<1 then VOL_PROD_KEY=InputBox("此工具将自动替换你当前Windows序列号,以通过微软的验证。"&vbCr&vbCr&"序列号对OEM版无效,默认版本为 XP VLK：","Windows XP序列号自动更换器","QC986-27D34-6M3TY-JJXP9-TBGMD") if VOL_PROD_KEY="" then Wscript.quit end if else VOL_PROD_KEY = Wscript.arguments.Item  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 "DONE！可去验证..." end if if err <> 0 then Wscript.echo "替换失败！输入的 CD-KEY 与当前的版本不匹配。" Err.Clear end if Next |
|---|---|
| 60.186.115.* 楼主 |  
     |