Public Sub sub_SetBrowserOptions()
Dim objShell 'To store shell object
Dim RegInvalidSiteCert 'To store registry key value for "warn about certificate address mismatch" option.
Dim RegChangeBtwSecure 'To store registry key value for "warn if changing between secure and not secure mode" option.
Dim RegAllowActiveContent 'To store registry key value for "Allow Active content to run in files on MyComputer" option.
Dim RegDispMixedContent 'To store registry key value for "Display Mixed Content" option.
'set the shell object reference.
Set objShell = CreateObject("WScript.Shell")
'to run next step when error occurred.
On Error Resume Next
'to capture "warn about certificate address mismatch" option path in Registry Editor.
RegInvalidSiteCert = "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\WarnonBadCertRecving"
'to capture "warn if changing between secure and not secure mode" option path in Registry Editor.
RegChangeBtwSecure = "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\WarnOnZoneCrossing"
'to capture "Allow Active content to run in files on MyComputer" option path in Registry Editor.
RegAllowActiveContent = "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_LOCALMACHINE_LOCKDOWN\iexplore.exe"
'to capture "Display Mixed Content" option path in Registry Editor.
RegDispMixedContent = "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1609"
'Uncheck "warn about certificate address mismatch" option
objShell.RegWrite RegInvalidSiteCert,"0","REG_DWORD"
'Uncheck "warn if changing between secure and not secure mode" option
objShell.RegWrite RegChangeBtwSecure,"0","REG_DWORD"
'Uncheck "Allow Active content to run in files on MyComputer" option.
objShell.RegWrite RegAllowActiveContent,"0","REG_DWORD"
'Uncheck "Display Mixed Content" option.
objShell.RegWrite RegDispMixedContent,"0","REG_DWORD"
'WScript.Quit 'To stop and exit from the script.
End Sub 'End of 'SetBrowserOptions' function.