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

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    重新安装ie的一个vbs
    复制代码 代码如下:

    'run_ie_reinstall.vbs - Runs the Internet Explorer Setup
    '?Doug Knox - 4/10/2002
    'Downloaded from www.dougknox.com

    X = MsgBox("Do you want to reinstall Internet Explorer?", vbYesNo, "Prompt!")

    Y = MsgBox("Do you want to reinstall Outlook Express?", vbYesNo, "Prompt!")

    Set WshShell = WScript.CreateObject("WScript.Shell")

    If X = 6 Then
    WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Active Setup\Installed Components\{89820200-ECBD-11cf-8B85-00AA005B4383}\IsInstalled", 0, "REG_DWORD"
    End If

    If Y = 6 Then
    WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Active Setup\Installed Components\{44BBA840-CC51-11CF-AAFA-00AA00B6015C}\IsInstalled", 0, "REG_DWORD"
    End If

    If X = 6 OR Y = 6 Then
    WshShell.Run ("rundll32.exe setupapi,InstallHinfSection DefaultInstall 132 %windir%\Inf\ie.inf")
    Else
    MsgBox "You chose not to reinstall IE or OE. No changes were made." vbCR vbCR "Copyright 2003 - Doug Knox",vbOkOnly, "User Cancelled"
    End If
    上一篇:vbs 字符统计功能模块
    下一篇:中文姓名笔画计算(VBS脚本版)
  • 相关文章
  • 

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

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

    重新安装ie的一个vbs 重新,安装,的,一个,vbs,重新,