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


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):"& vbCr&vbCr&"输入序列号(默认为 XP VLK):","Windows XP/2003 序列号更换工具","DG8FV- B9TKY-FRT9J-6CRCC-XPQ4G")
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



相关阅读:
JavaScript静态页面值传递:URL篇
扼杀IIS服务器性能的十条罪状
ASP.Net中MD5和SHA1加密的几种方法
WinNT/2K Web站点安全解决方案(1)
Linux中Subversion配置实例
CSS隐藏网页的滚动条教程
jquery中ajax调用json数据的使用说明
PHP 计算代码执行耗时的代码修正网上普遍错误
Oracle数据库联机热备份的原理简介
原创]javascript 定时广告显示(两个时间段)" target="_blank">[原创]javascript 定时广告显示(两个时间段)
层序遍历在ExtJs的TreePanel中的应用
MsSql 存储过程分页代码 [收集多篇]
Autorun病毒致使双击盘符无法打开问题
jQuery之浮动窗口实现代码(两种方法)
快速导航

Copyright © 2016 phpStudy | 皖ICP备18014864号-4