Как обработать всплывающее предупреждение безопасности на IE с помощью VBScript

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