информационная безопасность
без паники и всерьез
 подробно о проектеRambler's Top100
Где водятся OGRыSpanning Tree Protocol: недокументированное применение
BugTraq.Ru
Русский BugTraq
 Анализ криптографических сетевых... 
 Модель надежности двухузлового... 
 Специальные марковские модели надежности... 
 Крупный взлом GoDaddy 
 Просроченный сертификат ломает... 
 Phrack #70/0x46 
главная обзор RSN блог библиотека закон бред форум dnet о проекте
bugtraq.ru / форум / beginners
Имя Пароль
ФОРУМ
если вы видите этот текст, отключите в настройках форума использование JavaScript
регистрация





Легенда:
  новое сообщение
  закрытая нитка
  новое сообщение
  в закрытой нитке
  старое сообщение
  • Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
  • Новичкам также крайне полезно ознакомиться с данным документом.
Господа, будьте снисходительны, не бросайтесь сразу штрафовать за, как вам кажется, глупые вопросы - beginners на то и beginners.
Хм... 05.07.06 09:06  Число просмотров: 1205
Автор: DamNet [Bugtraq.ru Team] <Denis Amelin> Статус: Elderman
Отредактировано 05.07.06 09:06  Количество правок: 1
<"чистая" ссылка> <обсуждение закрыто>
Хм....

Мониторинг соединения скорее всего можно сделать обычным виндузовым алертером, а запускать его можно так:

'On Error Resume Next


*************************************************************************

function EstablishRASConnection()
dim ConnectSatus, k

EstablishRASConnection = 0
EstablishRASConnection = WshShell.Run("rasdial " &chr(34) & ConnectionName &chr(34) & " ЛОГИН ПАРОЛЬ", 0, TRUE)
end function

*************************************************************************

sub breakOffRASConnection()
Return = WshShell.Run("rasdial /disconnect ", 0, TRUE)
end sub

*************************************************************************

Set WshShell = WScript.CreateObject("WScript.Shell")
Set Arguments = WScript.Arguments


ConnectionName = "инет"

for each Arg in Arguments
Key = lcase(left(Arg,8))
select case Key
case "/connect"
ibn = EstablishRASConnection

case "/disconn"
Call breakOffRASConnection()
end select
next
<beginners>
Поддержание dialup подключения штатными средствами 05.07.06 08:36  
Автор: Ustin <Ustin> Статус: Elderman
Отредактировано 05.07.06 08:42  Количество правок: 1
<"чистая" ссылка> <обсуждение закрыто>
Возможно, ответ лежит на поверхности, но времени слишком мало, а поисковики за ночь так ничего умного не рассказали. Есть автономная система (платёжный терминал) на WinXP SP2, при загрузке автологинящаяся единственным имеющимся пользователем, после чего запускающая софтину, максимально прячущую виндовый интерфейс от пользователя.
В потрохах автомата есть GPRS-модем для связи с внешним миром (платёжной системой и сервером статистики). Необходимо добиться того, чтобы состояние соединения постоянно мониторилось и пересоединялось в случае обрыва. Очень хотелось бы сделать это штатными (почти штатными) средствами винды, так как гондобить свою приблуду просто не хватит времени.
Буду благодарен также за ссылки по теме.
UPD: вариант, имеющийся на форуме с использованием сторонней софтины не прокатит скорее всего, её не пропустят в серию к сожаленью.
Хм... 05.07.06 09:06  
Автор: DamNet [Bugtraq.ru Team] <Denis Amelin> Статус: Elderman
Отредактировано 05.07.06 09:06  Количество правок: 1
<"чистая" ссылка> <обсуждение закрыто>
Хм....

Мониторинг соединения скорее всего можно сделать обычным виндузовым алертером, а запускать его можно так:

'On Error Resume Next


*************************************************************************

function EstablishRASConnection()
dim ConnectSatus, k

EstablishRASConnection = 0
EstablishRASConnection = WshShell.Run("rasdial " &chr(34) & ConnectionName &chr(34) & " ЛОГИН ПАРОЛЬ", 0, TRUE)
end function

*************************************************************************

sub breakOffRASConnection()
Return = WshShell.Run("rasdial /disconnect ", 0, TRUE)
end sub

*************************************************************************

Set WshShell = WScript.CreateObject("WScript.Shell")
Set Arguments = WScript.Arguments


ConnectionName = "инет"

for each Arg in Arguments
Key = lcase(left(Arg,8))
select case Key
case "/connect"
ibn = EstablishRASConnection

case "/disconn"
Call breakOffRASConnection()
end select
next
Спасибо, работает, рад что так быстро откликнулся. 05.07.06 12:03  
Автор: Ustin <Ustin> Статус: Elderman
<"чистая" ссылка> <обсуждение закрыто>
Спасибо, работает, рад что так быстро откликнулся.
Теперь ещё более глупый вопрос: каким образом виндовыми средствами определить отвал подключения и привесить на этот отвал запуск твоего скрипта?
Под рукой нет ни одного соединения, могу только подсказать где искать... 05.07.06 13:06  
Автор: DamNet [Bugtraq.ru Team] <Denis Amelin> Статус: Elderman
<"чистая" ссылка> <обсуждение закрыто>
> Спасибо, работает, рад что так быстро откликнулся.
> Теперь ещё более глупый вопрос: каким образом виндовыми
> средствами определить отвал подключения и привесить на этот
> отвал запуск твоего скрипта?
Сорри, винда русская:
Панель управления- Администрирование-Производительность-Добавить счетчик-Телефония
Добавь счетчики, проверь как они себя ведут при включеном/выключенном соединении

потом иди в Панель управления- Администрирование-Производительность-Журналы и оповещения производительности-правой кнопкой мыши-новые параметры оповещений и там уже разберешься )
Это теперь сто пудов руки: 05.07.06 17:53  
Автор: Ustin <Ustin> Статус: Elderman
Отредактировано 05.07.06 18:02  Количество правок: 1
<"чистая" ссылка> <обсуждение закрыто>
UPD: Запустив всё это хозяйство от имени пользователя всё стало работать!
Damnet, спасибо огромное!
---
Это теперь сто пудов руки:
при попытке запустить программу при наступлении оповещения в евентлог валится сообщение об ошибке:
>Тип события: Предупреждение
>Источник события: SysmonLog
>Категория события: Отсутствует
>Код события: 2038
>Дата: 05.07.2006
>Время: 17:47:32
>Пользователь: Н/Д
>Компьютер: GROB
>Описание:
>Не удалось выполнить команду "" для оповещения gprs_modem. Выдача оповещений будет >продолжена по расписанию. Код возвращенной ошибки находится в данных.
>Данные:
>0000: c1 00 00 00 A...
Причём реакция одинаковая на c:\test\1.vbs, c:\test\1.bat, c:\test\1.cmd, c:\windows\sytem32\calc.exe
Может в XP отсутствует возможность запустить что-либо по оповещению?
Есть ли альтернативные пути?
1






Rambler's Top100
Рейтинг@Mail.ru


  Copyright © 2001-2021 Dmitry Leonov   Page build time: 0 s   Design: Vadim Derkach