How to handle a Security Alert Pop Up on IE by VBScript
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
精彩评论