如何处理在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