更换XP SN的vbs

ON ERROR RESUME NEXT

Dim VOL_PROD_KEY

if Wscript_.arguments.count<1 then

VOL_PROD_KEY=InputBox("Powered By www.cnbeta.com"&vbCr&vbCr&" 本程序将自动替换你当前Windows 的序列号,通过微软验证完全正版。"&vbCr&vbCr&"序列号(OEM版无效,默认版本为XP VLK)：","Windows XP序列号自动更换器","MRX3F-47B9T-2487J-KWKMF-RPWBY")

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

posted on 2008-03-05 17:26 Neo Devin 阅读(...) 评论(...) 编辑收藏

转载于:https://www.cnblogs.com/cuitao/archive/2008/03/05/1092225.html

更换XP SN的vbs相关推荐

关于自动更换xp桌面的壁纸。
最近有点烦恼,闲着闲着,我就想为啥我看到同样的桌面壁纸,每次看到不同的桌面壁纸,肯定可以给自己的新意,使得自己开始新的一天,对于我们从事电脑的人员,新的开始就是从见到最新的桌面. 于是有了下面的想法. ...
服务器更换桌面壁纸,通过VBS更换桌面设置壁纸源码
服务器路径,只支持BMP格式 ServerPath="\\sangsan.cn\share$\bmp" '本地文件名,将从服务器复制到本地后改名为这个文件名(包括完整路径) BMP ...
xp无法发现win7计算机,什么原因导致windows xp系统电脑无法识别U盘
U盘是我们经常会使用的移动工具,在使用电脑的过程中,经常会有遇到电脑无法识别U盘的情况,导致不能识别U盘的原因有两个,就是计算机硬件设备接口问题以及计算机系统是否支持等情况,接下来小编给大家分析关于U ...
vbs小程序图标更改方法
1.首先将vbs小程序放在一个自定义文件夹下,然后在此文件夹下生成vbs小程序的快捷方式 2.将你想要换成的图片(图片像素要低)也放入此文件夹下,并改成bmp格式 3.右击vbs快捷方式,进入属性,点 ...
微软全部正版软件下载地址和序列号索取
微软正版软件下载地址 http://msdn.itellyou.cn/?lang=zh-cn 微软正版序列号索取,请联系本人QQ:458717185 仅供学习和测试使用,生成环境请购买微软正版软件. ...
计算机桌面变蓝屏,电脑进入桌面蓝屏解决方法
相信不少朋友平时在对电脑的使用过程中,都遇到过电脑蓝屏的故障问题,但是由于自己不懂电脑的知识,不知道遇到这样的问题时该如何解决.别着急,下面,小编就给大家介绍一下电脑进入桌面蓝屏的处理方法,希望对你能 ...
Win10、Win7系统，电脑蓝屏，什么原因怎么解决？一篇文章彻底解决！
Win10.Win7系统电脑蓝屏?什么原因?怎么办?如何解决?带着这些问题小编一一介绍下. Win10.Win7系统,电脑蓝屏怎么解决,电脑蓝屏什么原因标题随着使用电脑的时间增长,我们的电脑逐步出现 ...
sparklines_Sparklines入门200年来功能强大的数据可视化形式
sparklines Sparklines are part of what's considered the "first wave of data viz," centered ...
【图文详解】HBase 的数据模型与架构原理详解
HBase 简介 https://hbase.apache.org/ HBase, Hadoop Database,是一个高可靠性.高性能.面向列.可伸缩. 实时读写的分布式开源 NoSQL 数据库, ...

更换XP SN的vbs

更换XP SN的vbs相关推荐

最新文章

热门文章