Question

我需要创建一个VBScript（WSH）来自动打开Internet Explorer并导航安全网页。但是，它会在显示该网站之前弹出安全警报。任何人都可以提供解决方案，以禁用IE中的弹出功能（安全认证）或接受脚本弹出窗口？

这是我的剧本：

Dim objIE 
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "https://10.10.10.101:9000/Portal"

????

Set objIE = Nothing

非常感谢。

Answer 1

回到2004年，我已经做了这两个功能来启用或禁用IE安全警告，不确定是否适用，但我想分享。

基本上，我修改了某些注册表值以启用和禁用IE安全警告。

Sub EnableActiveXWarning ()
Dim SHL
Dim sReg

Set SHL = CreateObject ("WScript.Shell")

sReg = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1201"

If SHL.RegRead (sReg) = 1 Then
    MsgBox "ActiveX Warning is already enabled!",vbExclamation
Else
    SHL.RegWrite sReg,1,"REG_DWORD"

    If SHL.RegRead (sReg) = 1 Then
        MsgBox "The ActiveX Warning was successfully enabled.",vbInformation
    Else
        MsgBox "An unknown error has occured !!",vbCritical
    End If
End If
Set SHL = Nothing
End Sub


Sub DisableActiveXWarning ()
Dim SHL
Dim sReg

Set SHL = CreateObject ("WScript.Shell")

sReg = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1201"

If SHL.RegRead (sReg) = 0 Then
    MsgBox "ActiveX Warning is already disabled!",vbExclamation
Else
    SHL.RegWrite sReg,0,"REG_DWORD"

    If SHL.RegRead (sReg) = 0 Then
        MsgBox "The ActiveX Warning was successfully disabled.",vbInformation
    Else
        MsgBox "An unknown error has occured !!",vbCritical
    End If
End If
Set SHL = Nothing
End Sub

如何处理由VBScript在IE上弹出的安全警报

1 个答案: