用VBS脚本实现更换Windows Xp序列号的代码

时间:2021-07-25 12:02:47
  1. ON ERROR RESUME NEXT  
  2.  
  3. Dim VOL_PROD_KEY  
  4. if Wscript.arguments.count<1 then  
  5. VOL_PROD_KEY =InputBox("使用说明:"&vbCr&vbCr&"   本程序将自动替换你当前 Windows 的序列号,通过微软验证完全正版。"&vbCr&vbCr&"序列号(OEM版无效,默认版本为 XP VLK):"& vbCr&vbCr&"输入序列号(默认为 XP VLK):","Windows XP/2003 序列号更换工具","DG8FV- B9TKY-FRT9J-6CRCC-XPQ4G")  
  6. if VOL_PROD_KEY="" then  
  7. Wscript.quit  
  8. end if  
  9. else  
  10. VOL_PROD_KEY = Wscript.arguments.Item(0)  
  11. end if  
  12.  
  13. VOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if any  
  14.  
  15. for each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")  
  16.  
  17. result = Obj.SetProductKey (VOL_PROD_KEY)  
  18.  
  19. if err = 0 then  
  20. Wscript.echo "您的 Windows CD-KEY 修改成功。请检查系统属性。"  
  21. end if  
  22.  
  23. if err <> 0 then  
  24. Wscript.echo "修改失败!请检查输入的 CD-KEY 是否与当前 Windows 版本相匹配。"  
  25. Err.Clear  
  26. end if  
  27.  
  28. Next