Open iLO3 admin panel bypassing SSL certification warning

iLO3.vbs

Option Explicit

Call Main()
Call WScript.Quit()

Sub Main()
	Const CstStrILO3 = "https://192.168.1.100/"

	Dim ObjIE, ObjDoc, ObjLinks, ObjLink
	Set ObjIE = WScript.CreateObject("InternetExplorer.Application")
	ObjIE.Navigate2(CstStrILO3)
	While ObjIE.Busy Or ObjIE.readyState <> 4
		'警告ページ表示待ち
	WEnd
	Set ObjDoc   = ObjIE.document
	Set ObjLinks = ObjDoc.links
	For Each ObjLink In ObjLinks
		If ObjLink.id = "overridelink" Then
			Call ObjLink.click()
		End If
	Next
	Set ObjLinks = Nothing
	Set ObjDoc   = Nothing
	While ObjIE.Busy Or ObjIE.readyState <> 4
		'ホームページ表示待ち
	WEnd
	'ホームページ表示後にIE表示
	ObjIE.Visible = True
	Set ObjIE = Nothing
End Sub