繁體中文当前位置: 首页 > 图文教程 > 脚本技术 > VBScript > 重新安装ie的一个vbs
- VBScript
- VBS教程：VBscript语句-Execute 语句
- VBS教程：VBscript语句-Erase 语句
- VBS教程：VBscript语句-Do...Loop 语句
- VBS教程：VBscript语句-Dim 语句
- VBS教程：VBscript语句-Const 语句
- VBS教程：VBscript语句-Class 语句
- VBS教程：VBscript语句-Call 语句
- VBS教程：VBscript语句-功能介绍
- VBS教程：VBscript属性-Value 属性
- VBS教程：VBscript属性-Source 属性
- VBS教程：VBscript属性-Pattern 属性
- VBS教程：VBscript属性-Number 属性
- VBS教程：VBscript属性-Length 属性
- VBS教程：VBscript属性-IgnoreCase 属性
- VBS教程：VBscript属性-HelpFile 属性
- VBS教程：VBscript属性-HelpContext 属性
- VBS教程：VBscript属性-Global 属性
- VBS教程：VBscript属性-FirstIndex 属性
- VBS教程：VBscript属性-Description 属性
- VBS教程：VBscript属性-功能介绍
VBScript 中的 重新安装ie的一个vbs
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-11 浏览: 161 ::
收藏到网摘: n/a
复制代码 代码如下:
'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
评论 (0) All
