用vbs实现的XP序列号替换器

代码如下:

ON ERROR RESUME NEXT

Dim VOL_PROD_KEY
if Wscript.arguments.count<1 then
   VOL_PROD_KEY=InputBox("本程序能帮助您更换 WindowsXP 的序列号。"&vbCr&vbCr&"序列号由您自己寻找并输入。下面列出的不一定是您当前用的序列号，仅作格式参考。"&vbCr&vbCr&"请输入新的序列号：","WindowsXP序列号更换器  by donghai","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 "修改成功。请点击附带的网址到微软网站进行验证。祝您好运！"
   end if

if err <> 0 then
      Wscript.echo "替换失败！您输入的序列号有误。"
      Err.Clear
   end if

Next

赞 (0)

相关推荐

  • 用vbs实现的XP序列号替换器

    复制代码 代码如下: ON ERROR RESUME NEXT Dim VOL_PROD_KEY if Wscript.arguments.count<1 then    VOL_PROD_KEY=InputBox("本程序能帮助您更换 WindowsXP 的序列号."&vbCr&vbCr&"序列号由您自己寻找并输入.下面列出的不一定是您当前用的序列号,仅作格式参考."&vbCr&vbCr&"请输入新的

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

  • xp序列号大全可通过正版验证的XP序列号

    最新的windows xp sp3序列号(绝对可通过正版验证) MRX3F-47B9T-2487J-KWKMF-RPWBY(工行版) 可用(强推此号) QC986-27D34-6M3TY-JJXP9-TBGMD(台湾交大学生版) 可用 CM3HY-26VYW-6JRYC-X66GX-JVY2D 可用 DP7CM-PD6MC-6BKXT-M8JJ6-RPXGJ 可用 F4297-RCWJP-P482C-YY23Y-XH8W3 可装不可升级 HH7VV-6P3G9-82TWK-QKJJ3-MXR96

  • 用vbs实现在启动 Windows 资源管理器时打开特定文件夹

    用vbs实现在启动 Windows 资源管理器时打开特定文件夹

    my-script.vbs "c:\scripts" 在文件夹路径的两端必须加双引号吗?本例中不需要.但是,如果路径中有空格,则必须加双引号.以下命令行将不起作用: my-script.vbs c:\documents and settings\kmyer 只要是向脚本传递包含空格的参数,就必须将整个参数括在双引号内(否则无需如此).换句话说: my-script.vbs "c:\documents and settings\kmyer" 这就是命令解释程序的工作方

  • VBS脚本实现遍历批量替换多目录多文件内容的代码

    有时候我们需要将一个目录与子目录中的多个htm网页文件实现批量替换,这里就为大家分享一下 将以下代码复制到一个文本文档中,并将文本文档的后缀修改为.vbs,直接运行即可 Set WshShell = CreateObject("Wscript.Shell") WshShell.Run "cmd /c dir /s/b *.htm > list.htm",vbHide Wscript.Sleep 1000 sFile = "list.htm"

  • Win2008，windows2008序列号查看器

    Win2008，windows2008序列号查看器

    很多人在默认安装Windows Server 2008时没有输入Win2008序列号,由于Windows Server 2008作为服务器家族需要使用KMS在线激活.如果你已经申请了Win2008 cdkey但是安装后忘记了,可以使用Vista地带的ooVista系统必备来查看. 打开ooVista系统必备,单击"百宝箱"-"CD-Key查看"即可查看Win2008序列号.我们可以单击右边的"复制到剪切板"即可自动复制Win2008 CD-KEY

  • 查看或修改Windows系列系统的序列号的vbs

    '/*========================================================================= ' * Intro       查看或修改Windows系列系统的序列号(包括:2000,xp,2003),支持命令行"GetChangeWindowsSN.vbs Windows系统序列号" 或 直接运行输入Windows系统序列号. ' * FileName    GetChangeWindowsSN.vbs ' * Author

  • 用vbs更改Windows Vista操作系统序列号的图文教程

    用vbs更改Windows Vista操作系统序列号的图文教程

    Windows Vista通过产品序列号--或称密钥.ProdUCt Key.CD Key以及日后可能出现的针对大客户的Volume License Key (VLK)等--来判断自身是否为正版,只有正确的序列号才能激活Windows Vista,不然,Windows Vista便只能使用在精减模式下. 在某些情况下,当我们安装Windows Vista时,可能会因操作失误或别的原因而输入错误的序列号,导致无法通过Windows 正版验证,无法激活.那么,此时我们是不是用正确的序列号需要重新安装

  • 用vbs解决winxp 你是盗版软件的受害者提示

    首先,建立一个文本文件,然后输入以下信息: 复制代码 代码如下: ON ERROR RESUME NEXT    Dim VOL_PROD_KEY    if Wscript.arguments.count<1 then    VOL_PROD_KEY=InputBox("Powered By www.jb51.net"&vbCr&vbCr&" 本程序将自动替换你当前 Windows 的序列号,通过微软验证完全正版."&vbCr

  • 常用VBS代码 值得一看

    从系统开始菜单中删除此链接: 复制代码 代码如下: Windows Registry Editor Version 5.00 [HKEY_CLASSES_ROOT\CLSID\{2559a1f6-21d7-11d4-bdaf-00c04f60b9f0}] @=- "InfoTip"=- [HKEY_CLASSES_ROOT\CLSID\{2559a1f6-21d7-11d4-bdaf-00c04f60b9f0}\DefaultIcon] @=- [HKEY_CLASSES_ROOT\C

随机推荐