- 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
用VBS脚本实现更换Windows Xp序列号的代码
2020-07-18 11:52VBS教程网 VBS
用vbs实现更改winxp序列号,不用任何软件,有需要的朋友可以参考下
延伸 · 阅读
- 2022-02-27C# 获取 PC 序列号的方法示例
- 2022-02-15SQL使用ROW_NUMBER() OVER函数生成序列号
- 2022-02-10微信红包封面序列号大全免费2022 微信红包封面怎
- 2022-01-152022微信红包封面序列号免费领取 微信红包封面
- 2021-12-16C#获取硬盘序列号的问题小结
- 2021-12-07修复 IDM下载器假序列号错误优秀技巧分享
- VBS
VBS教程:正则表达式简介 -正则表达式语法
正则表达式语法 一个正则表达式就是由普通字符(例如字符 a 到 z)以及特殊字符(称为元字符)组成的文字模式。该模式描述在查找文字主体时待匹配的...
- VBS
Adsutil.vbs 在脚本攻击中的妙用[我非我原创]
adsutil.vbs是什么?相信用过IIS的网管员不会不知道。这是IIS自带的提供于命令行下管理IIS的一个脚本。位于%SystemDrive%\Inetpub\AdminScripts目录下。...
- VBS
灵活实用VBS入门教程应用篇
上一篇文章我们了解了VBS编程的一些基础知识,要更深入地学习还要学习选择结构和循环结构。 ...
- VBS
雷客图ASP站长安全助手vbs测试版代码
雷客图ASP站长安全助手是一个基于ASP的帮助站长维护网站安全的程序。这个版本(vbs测试版)主要用于服务器本地运行以查找ASP木马。此版本为测试版,希...
- VBS
WINDOWS脚本实践:为SAP补丁制作的VBS脚本代码
本文主要分享WINDOWS脚本实践:为SAP补丁制作的VBS脚本代码,有需要的童鞋可以参考下...
- VBS
VBS数组深入浅出
VBS数组在应用中没有像其他语句那么广泛,VBS数组存在不少功能上的局限性(如二维数组的定义、赋值),在使用上也没有java等语言那么便捷...
- VBS
VBS编程教程 (第1篇)
VBScript的全称是:Microsoft Visual Basic Script Editon.(微软公司可视化BASIC脚本版). 正如其字面所透露的信息, VBS(VBScript的进一步简写)是基于Visual Basic的脚本语言....
- VBS
VBS文本文件操作实现代码
这篇文章主要介绍了VBS文本文件操作实现代码,需要的朋友可以参考下...