'**************************************************** Option Explicit '**************************************************** ' Region Declaration '**************************************************** '* Constants '**************************************************** Const strURL = "https://hpsim.domain.com:50000" Const strUser = "unprivilegedUser" Const strPW = "unprivilegedPassword" Const strDomain = "NETBIOS-DOMAIN" '**************************************************** '* Variables '**************************************************** Dim objShell, objFSO Dim objIE ' EndRegion 'Region Init '**************************************************** '* Initialising '**************************************************** Set objIE = CreateObject("InternetExplorer.Application") Set objShell = CreateObject("WScript.Shell") 'EndRegion 'Region Main '**************************************************** '* Commands '**************************************************** ' Let's open the IExplorer and navigate to the HP- SIM: objIE.Navigate strURL ' Positioning and configuring the IExplorer Window: objIE.TheaterMode = False objIE.ToolBar = False objIE.StatusBar = False objIE.TheaterMode = True objIE.TheaterMode = False objIE.Height = 1170 objIE.Width = 910 objIE.Left = 690 objIE.Top = 0 Set objIE = Nothing ' Lets wait a moment, until IExplorer has fopund its target: WScript.Sleep 1500 ' Committing the certificate warning objShell.AppActivate "Security Alert" objShell.SendKeys "Y" WScript.Sleep 1500 ' Entering username, password and Domain Informations objShell.AppActivate "HP Systems Insight Manager" objShell.SendKeys strUser & "{TAB}" objShell.SendKeys strPW & "{TAB}" objShell.SendKeys strDomain & "{ENTER}" 'EndRegion