• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    用VBS脚本实现更换Windows Xp序列号的代码
    ON ERROR RESUME NEXT

    Dim VOL_PROD_KEY
    if Wscript.arguments.count1 then
    VOL_PROD_KEY =InputBox("使用说明:"vbCrvbCr"   本程序将自动替换你当前 Windows 的序列号,通过微软验证完全正版。"vbCrvbCr"序列号(OEM版无效,默认版本为 XP VLK):" vbCrvbCr"输入序列号(默认为 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实现的强制杀进程的脚本
    下一篇:vbs实现右键菜单中添加CMD HERE
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    用VBS脚本实现更换Windows Xp序列号的代码 用,VBS,脚本,实现,更换,Windows,