开发者

How to handle a Security Alert Pop Up on IE by VBScript

开发者 https://www.devze.com 2022-12-28 19:32 出处:网络
I need to create a 开发者_Python百科VBScript (WSH) to automatically open Internet Explorer and navigate a security web page. However, it always pops up a security alert before displaying that website.

I need to create a 开发者_Python百科VBScript (WSH) to automatically open Internet Explorer and navigate a security web page. However, it always pops up a security alert before displaying that website. Can anyone provide a solution for either disables the pop up function (security certification) in IE or accepts the pop-up by the script?

Here is my script:

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

????

Set objIE = Nothing

Thanks a lot.


Way back in 2004, i had made these two functions to enable or disable IE security warning not sure whether applicable still but I would like to share.

Basically, I modified certain registry values to enable and disable the IE security warning.

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
0

精彩评论

暂无评论...
验证码 换一张
取 消