информационная безопасность
без паники и всерьез
 подробно о проектеRambler's Top100
Страшный баг в WindowsПортрет посетителя
BugTraq.Ru
Русский BugTraq
 Анализ криптографических сетевых... 
 Модель надежности двухузлового... 
 Специальные марковские модели надежности... 
 По роутерам Juniper расползается... 
 С наступающим 
 Microsoft обещает радикально усилить... 
главная обзор RSN блог библиотека закон бред форум dnet о проекте
bugtraq.ru / форум / beginners
Имя Пароль
ФОРУМ
все доски
FAQ
IRC
новые сообщения
site updates
guestbook
beginners
sysadmin
programming
operating systems
theory
web building
software
hardware
networking
law
hacking
gadgets
job
dnet
humor
miscellaneous
scrap
регистрация





Легенда:
  новое сообщение
  закрытая нитка
  новое сообщение
  в закрытой нитке
  старое сообщение
  • Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
  • Новичкам также крайне полезно ознакомиться с данным документом.
Господа, будьте снисходительны, не бросайтесь сразу штрафовать за, как вам кажется, глупые вопросы - beginners на то и beginners.
Хм... 05.07.06 09:06  Число просмотров: 1433
Автор: DamNet <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> Поиск 






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


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