[Iska]

Charg, у меня — закрылся.

Если вместо .Visible = False использовать .Visible = True — что-нибудь видно при этом симптоматичного, что может мешать завершению работы приложения?

[Serguei Kouzmine]

по большому не пробовали ?

Код:

# quit and dispose IE
$ie.Quit()
while( ([System.Runtime.Interopservices.Marshal]::ReleaseComObject($ie) | out-null) ) {}
Remove-Variable ie -ErrorAction SilentlyContinue

[Charg]

Iska, visible=false, по большому счету, тоже никакого эффекта не имеет, т.к. окно IE в любом случае отображается (хотя возможно я неправильно понимаю суть этого параметра).
В принципе на работе с коллегой заметили странный нюанс - если запускать этот скрипт даблкликом из x32 тотал коммандера - отрабатывает как надо, если просто из эксплорера (x64 уже, win10 ltxb) - не отрабатывает.

Serguei Kouzmine, это PS? А как мне это в vbs скрипт впихнуть? Или наоборот - как впихнуть ту же последовательность действий (открыть браузер, перейти по ссылке, подождать, закрыть браузер) в PS?

[Iska]

Iska, visible=false, по большому счету, тоже никакого эффекта не имеет, т.к. окно IE в любом случае отображается »

Неа. Не отображается.

В принципе на работе с коллегой заметили странный нюанс - если запускать этот скрипт даблкликом из x32 тотал коммандера - отрабатывает как надо, если просто из эксплорера (x64 уже, win10 ltxb) - не отрабатывает. »

Когда Вы используете запуск из-под x86-приложения — из-за редиректа файловой системы используется x86-версия wscript.exe/cscript.exe из SysWOW64. Из-за редиректа реестра и все объекты Automation также создаются на базе перенаправленных x86-разделов реестра и x86-версий библиотек.

В принципе, на x64 ОС Вы можете принудительно использовать запуск этого WSH скрипта под потребной разрядности wscript.exe/cscript.exe из каталога %SystemRoot%\SysWOW64, ежели под ними всё отрабатывает как надо.

[Charg]

В общем выяснил что дело в самой странице, которую получает IE.

так работает потому что страница google.com нормально грузится

Код:

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.ToolBar = 1
IE.StatusBar = 1
IE.Width = 50
IE.Height = 50
IE.Navigate("https://google.com")
WScript.Sleep(2000)
IE.Quit

а так не работает

Код:

Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.ToolBar = 1
IE.StatusBar = 1
IE.Width = 50
IE.Height = 50
IE.Navigate("https://kerio:4081/login")
WScript.Sleep(2000)
IE.Quit

И выдает ошибку

Скрытый текст

На строке IE.Quit. А не работает потому (наверное) что при попадании юзера на эту страницу его редиректит на https://kerio:4081/login/blocked.php т.к. у юзера нет прав смотреть собственную статистику, та в общем-то и не должно быть.
Собственно, варианта решения два - настроить керио чтоб либо не редиректило либо дать права на статистику - или каким-то образом насильно грохать IE внутри скрипта. Как отключить редирект на керио я, честно говоря, понятия не имею, а выдача пользователю прав на просмотр собственной статистики почему-то не помогает. Так что видимо придется пойти менее правильным путем - скриптом насильно грохать IE.
Из VBS скрипта это можно как-то сделать?

upd.
Оказалось что если открыть страницу https://kerio:4081/login/ в гуглохроме - пользователя нормально редиректит на страницу статистики керио (при условии наличия прав)
Если открыть ту же самую страницу в эксплорере (тот же пользователь и права) - редиректит на https://kerio:4081/login/blocked.php

[Iska]

Charg, тогда можно смело обращаться в техподдержку Kerio с этим:

Оказалось что если открыть страницу https://kerio:4081/login/ в гуглохроме - пользователя нормально редиректит на страницу статистики керио (при условии наличия прав) Если открыть ту же самую страницу в эксплорере (тот же пользователь и права) - редиректит на https://kerio:4081/login/blocked.php »

вопросом.

[megaloman]

Charg, Если хамским образом закрыть все экземпляры эксплорера, то после oIE.quit

Код:

Program = "iexplore.exe"

Set WMI = GetObject("winMgmts:")
SQuery = "Select *From Win32_Process Where Name=" + """" + Program + """"

Set Processes = WMI.ExecQuery(SQuery)
For Each Process In Processes
    Process.Terminate
Next

[Serguei Kouzmine]

@Charg у меня постепенно наполняется примерами github даже не репо а директория в другом репо - internetExplorer automation может пригодится когда *ставить вообще ничего нельзя* но это весьма трудоемкое скриптоделание очень уж он парши ^W нехороший инструмент - вот линк
https://github.com/sergueik/powershe...er_application

[Charg]

megaloman, работает, закрывается. Остается только каким-то образом "спрятать" само окно эксплорера, которое появляется на секунду. oIE.Visible = False не отрабатывает.

Serguei Kouzmine, переписал на PS, получилось так:

Скрытый текст

Код:

$ie = new-object -com 'internetexplorer.application'
$ie.visible = $false
$ie.ToolBar = 0
$ie.StatusBar = 0
$ie.Width = 1
$ie.Height = 1
$url = 'https://kerio:4081/login'
$ie.navigate2($url)
$ie.Quit()
while( ([System.Runtime.Interopservices.Marshal]::ReleaseComObject($ie) | out-null) ) {}
Remove-Variable ie -ErrorAction SilentlyContinue

В итоге IE открывается, переходит куда надо (всё это не в "скрытом" режиме, как должно было бы быть, ведь есть $ie.visible = $false), а потом не закрывается.