Charg
03-12-2018, 14:33
В общем вопрос решился с помощью ссылки El Sanchez
Итоговый вариант выглядит так
Set IE = GetObject("new:{D5E8041D-920F-45e9-B8FB-B1DEB82C6E5E}")
' explanation for the row above:
' https://blogs.msdn.microsoft.com/ieinternals/2011/08/03/default-integrity-level-and-automation/
IE.Visible = False ' set true for debug
IE.ToolBar = 0 ' set 1 for debug
IE.StatusBar = 0 ' set 1 for debug
IE.Navigate("https://kerio:4081/login")
' login process, must be in intranet zone in Internet Explorer
WScript.Sleep(5000)
' wait for kerio to successfully redirect us on webstatistics page
IE.Quit
' close IE
Итоговый вариант выглядит так
Set IE = GetObject("new:{D5E8041D-920F-45e9-B8FB-B1DEB82C6E5E}")
' explanation for the row above:
' https://blogs.msdn.microsoft.com/ieinternals/2011/08/03/default-integrity-level-and-automation/
IE.Visible = False ' set true for debug
IE.ToolBar = 0 ' set 1 for debug
IE.StatusBar = 0 ' set 1 for debug
IE.Navigate("https://kerio:4081/login")
' login process, must be in intranet zone in Internet Explorer
WScript.Sleep(5000)
' wait for kerio to successfully redirect us on webstatistics page
IE.Quit
' close IE