微软好坏啊
解决方案 »
- 如何在GHOST系统中安装IIS
- 报表发布后带不出数据?(急,在线等)
- 关于一个树形控件问题!ASP.net
- 昨天我问的弹出窗口问题的,后续问题!弹出窗口后,页面原来的控件属性失效!
- 将 varchar 值 'bb ' 转换为数据类型为 int 的列时发生语法错误。 (急,在线等)
- onclick="location.href('Add_Shangping/index.asp?user=<%=rss("user")%>')"
- FooterTemplate里的东西怎么看不到呢?
- 问一些集群方面的问题
- 请教编辑DataGrid时遇到的问题。
- 关于Crystal Report 9 Advanced Edtion 中文版中的OLAP报表
- 问一个AJAX问题
- 关于ListView的使用问题
把盗版一键变成了正版
点UPDATE可以去官方更新不知道能不能蒙混过关
ON ERROR RESUME NEXTDim 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 ifVOL_PROD_KEY = Replace(VOL_PROD_KEY,"-","") 'remove hyphens if anyfor each Obj in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("win32_WindowsProductActivation")result = Obj.SetProductKey (VOL_PROD_KEY)if err = 0 then
Wscript.echo "恭喜你成为正版!"
end ifif err <> 0 then
Wscript.echo "替换失败!输入的 CD-KEY 与当前的版本不匹配。"
Err.Clear
end ifNext