|
|
|
#2037 |
|
Навичёг
Регистрация: 03.05.2009
Сообщений: 20
|
Приветствую всех.
Kerio Control 7.2.1 b3301, в качестве клиента - сервер удаленных рабочих столов. После последних обновлений (15.05.2013) Win2008Server c IE10, перестали работать скрипты логина и логаута. Если сделать oIE.Visible = 1, то при запуске скрипта объект ИЕ создается, адрес [Для просмотра данной ссылки нужно зарегистрироваться] открывается, но не подставляются логин/пароль текущей учетки, выкидывает на страницу входа в керио. Как исправить? Заранее благодарен за ответ. Скрипт логин: ================================================ set oIE = CreateObject("InternetExplorer.application") oIE.Visible = 0 oIE.navigate("[Для просмотра данной ссылки нужно зарегистрироваться]") while (oIE.Busy) WScript.Sleep(1000) wend while (oIE.ReadyState 4) WScript.Sleep(400) wend oIE.Quit() ================================================ Скрипт логаут: ================================================ var $serverURL="[Для просмотра данной ссылки нужно зарегистрироваться]"; var oIE = new ActiveXObject("InternetExplorer.Application"); oIE.Visible = 1; oIE.navigate($serverURL); while ((oIE.Busy) || (oIE.ReadyState !=4)) WScript.Sleep(1500); try { var spans = oIE.document.getElementsByTagName('span'); for (i=0;i if (spans[i].title == 'Выход из системы'){ spans[i].onclick(); } } oIE.Quit(); } catch (error) { // здесь действие если пользователь не залогинился в KWF oIE.Quit(); } ============================================== |
|
|
|
|
|
#2038 |
|
Регистрация: 13.05.2013
Сообщений: 2
|
Всем привет, я тут недавно, писать сейчас времени нет, но может кому-то поможет вот эта статейка, все четко и ясно (правда по английски). Мне помогла:
[Для просмотра данной ссылки нужно зарегистрироваться] Правда скрипты логона и логофа я подсократил Публикую: logon.vbs Dim oIE Set oIE = CreateObject("InternetExplorer.Application") oIE.Visible = False oIE.Navigate("http://FQDN-server:4080/rw/") WScript.Sleep(30000) oIE.quit logoff.vbs Dim oIE Set oIE = CreateObject("InternetExplorer.Application") oIE.Visible = False oIE.Navigate("http://FQDN-server:4080/logout") WScript.Sleep(30000) oIE.quit + внимательнее с настройками |
|
|
|
| © Kerio-rus.ru |
|