一个可以更换windows xp or 2003的序列号的vbs脚本

将以下代码复制到文本文件，另存为vbs文件执行就可以了：


代码如下:

'For WinXP SP1 SP2 ,Windows Server 2003
'***************************************************************************

ON ERROR RESUME NEXT

Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
VOL_PROD_KEY=InputBox("使用说明(OEM版无效)："&vbCr&vbCr&" 本脚本程序将修改当前 Windows 的序列号。请先使用算号器算出匹配当前 Windows 的序列号，复制并粘贴到下面空格中。"&vbCr&vbCr&"输入序列号(默认为 XP VLK)：","Windows XP/2003 序列号更换工具","PJVCV-XCPPF-6GTKK-QXRPY-FBKGJ")
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,"-","")

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

赞 (0)

相关推荐

  • 一个可以更换windows xp or 2003的序列号的vbs脚本

    将以下代码复制到文本文件,另存为vbs文件执行就可以了: 复制代码 代码如下: 'For WinXP SP1 SP2 ,Windows Server 2003 '*************************************************************************** ON ERROR RESUME NEXT Dim VOL_PROD_KEY if Wscript.arguments.count<1 then VOL_PROD_KEY=InputBox

  • 用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):"& 

  • Windows 2000、XP、2003登录密码恢复攻略

    一.删除SAM文件,清除Administrator账号密码 二.从SAM文件中查找密码        1.L0phtCrack (LC)        2.LCP        3.SamInside pro 三.用Net User命令恢复系统登陆用户密码 四.用密码重设盘设新密码 五.修改屏保文件法 六.使用软件修改密码 Windows XP 2000 NT Password Recovery Key CleanPwd Offline NT Password & Registry Editor

  • 巧妙汉化Windows XP/2003的磁盘工具

    用过Windows XP的用户都知道,Windows XP的磁盘扫描只能在开机时进行,可是面对满屏的英文,你是否一筹莫展?其实,Windows 2000/XP/2003的磁盘扫描完全可以显示中文. 1.只扫描不修复 我们在资源管理器中右击任意驱动器名称,选择"属性",进入"工具"选项卡,单击"开始检查"按钮,可打开如图所示的对话框.如果不勾选任何修复选项,即使是对系统分区的扫描也可以在Windows环境中进行,出现的也都是中文提示.这相当于在&q

  • Windows XP操作系统的六大使用禁忌

    虽然Windows XP稳定性已经很好了,但是有一些东西我们在设置的时候还是要注意的,不然会引起系统出现故障. 一.忌虚拟光驱 现在多数虚拟光驱在XP里是不稳定的,容易引起XP的死机,因为虚拟光驱不同于 一般的软件:它通过特殊的机制,在"设备管理器"中骗过Windows,让Windows以为增加了物理的光驱,XP只设计了还原硬件的驱动,没想到要"还原/删除"硬件本身.因为XP是为NTFS和网络特别优化的,而大多数虚拟光驱是FAT32环境下开发的,目前和XP兼容良好的

  • windows xp下没有dos的choice命令的解决方法

    dos6.0下能实现的choice选项,但是因为choice是外部命令,在xp中没有choice.exe所以不能实现选择菜单.解决办法:用SET命令代替 set 命令详解   在批处理中回显信息有两个命令,echo和set /p=<nul,它们的共同点在于都是对程序执行信 息的屏幕输出,区别在于echo是换行输出,而set /p=<nul是不换行追回输出,这样说大家可能 不是很理解,下面给出两个代码来进行比较: 代码: @echo off echo bathome echo batman pa

  • 黑客入侵Windows XP系统常用七大招数

    本文讲述了黑客入侵Windows XP操作系统常用的七种方法,如果大家遇到类似那可要注意了--  第一招:屏幕保护 在Windows中启用了屏幕保护之后,只要我们离开计算机(或者不操作计算机)的时间达到预设的时间,系统就会自动启动屏幕保护程序,而当用户移动鼠标或敲击键盘想返回正常工作状态时,系统就会打开一个密码确认框,只有输入正确的密码之后才能返回系统,不知道密码的用户将无法进入工作状态,从而保护了数据的安全. 提示:部分设计不完善的屏幕保护程序没有屏蔽系统的"Ctrl+Alt+Del"

  • Windows XP系统 SP2防火墻概述

    Windows XP系统 SP2防火墻概述

    Windows 防火墙是在 Windows XP Service Pack 2 中取代原来的 Internet Connection Firewall 的更新版本.默认状态下防火墙在所有的网卡界面均为开启状态. 无论是Windows XP全新安装还是升级安装,这个选项都可以在默认的情况下给网络连接提供更多的保护.但是,如果某些应用程序不能在这个防火墙过滤状态下工作的话,他们将无法兼容于这个新的操作系统.   更新     用户界面和新特性 要配置 Windows 防火墙, 可以从安全中心中打开,

  • Windows XP最新应用技巧大荟萃

    1.恢复EXE文件关联  EXE文件关联出错非常的麻烦,  因为这种情况的出现多是由于病毒引起的,而杀毒软件的主文件都是EXE文件,既然EXE文件关联出错,又怎能运行得了杀毒软件呢?还好XP提供了安全模式下的命令行工具供我们使用,可以利用命令行工具来解决这个问题.  在安全模式下输入:assoc<空格>.exe=exefile<回车>,屏幕上将显示".exe=exefile".现在关闭命令提示符窗口,按Ctrl+Alt+Del组合键调出"Windows

  • 如何修复受损的Windows XP用户帐户很不错

    大家都知道,Windows XP 相比其它版本的 Windows 而言提供了 Windows 欢迎屏幕登录方式和快速用户切换的功能,为我们实现多人使用一台计算机提供了方便.正是因为如此,Windows XP 控制面板中的"用户帐户"也与其它版本的 Windows 有所不同,我们可以通过它选择是否启用欢迎屏幕.是否启用快速用户切换,以及为用户帐户设置头像等等. 然而,Windows XP 的"用户帐户"的主界面是一个基于 HTML 界面的程序,例如"用户帐户

随机推荐