Модераторы: Snowy, Poseidon, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Radmin 
:(
    Опции темы
Martisha
Дата 30.10.2008, 09:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 197
Регистрация: 15.10.2008
Где: казань

Репутация: нет
Всего: 1



Привет всем!

У меня такая проблемка: 
Мне нужно проверить работает ли Radmin, совершенно не представляю как это сделать..
Подскажите кто что знает  smile 
PM MAIL ICQ   Вверх
Matematik
Дата 30.10.2008, 09:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 24
Всего: 50



Попытаться к нему подсоединиться.
Нужно для начала знать адрес компьютера и порт на котором висит radmin

Это сообщение отредактировал(а) Matematik - 30.10.2008, 10:12
PM MAIL WWW ICQ   Вверх
Martisha
Дата 30.10.2008, 10:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 197
Регистрация: 15.10.2008
Где: казань

Репутация: нет
Всего: 1



Matematik, а можно примерчик?  smile 
PM MAIL ICQ   Вверх
Данкинг
Дата 30.10.2008, 10:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 1
Всего: 130



Цитата(Martisha @  30.10.2008,  09:34 Найти цитируемый пост)
Мне нужно проверить работает ли Radmin, совершенно не представляю как это сделать..

Если он висит в процессах, то он определённо работает! smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Martisha
Дата 30.10.2008, 10:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 197
Регистрация: 15.10.2008
Где: казань

Репутация: нет
Всего: 1



мне нужно, чтобы прога проверяла где то раз в пол часа работает он или нет
PM MAIL ICQ   Вверх
Данкинг
Дата 30.10.2008, 10:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 1
Всего: 130



Цитата(Martisha @  30.10.2008,  10:34 Найти цитируемый пост)
мне нужно, чтобы прога проверяла где то раз в пол часа работает он или нет 

Таймер! smile  smile И пусть каждые 1800000 мс запускает процедуру, возвращающую список процессов! Пример таковой есть в Delphiworld.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Martisha
Дата 31.10.2008, 08:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 197
Регистрация: 15.10.2008
Где: казань

Репутация: нет
Всего: 1



Цитата(Данкинг @  30.10.2008,  10:55 Найти цитируемый пост)
Таймер!    И пусть каждые 1800000 мс запускает процедуру, возвращающую список процессов!

это то я и сама понимаю..только мне еще сложно понять как это сделать)

Цитата(Данкинг @  30.10.2008,  10:55 Найти цитируемый пост)
Пример таковой есть в Delphiworld. 

что то не нашла пока, хотя я времени не было хорошенько покопаться..но все равно спасибо  smile 
PM MAIL ICQ   Вверх
elestrago
Дата 31.10.2008, 14:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 146
Регистрация: 23.8.2007
Где: runet

Репутация: 1
Всего: 3



для начала тебе нужно было бы описать поконкретней что тебе нужно!!

ты собираешься проверять работу радмина удаленно или у себя на компьютере?

если на компе то делай так:

кидаеш на форму таймер выставляешь ему время
по событию таймера даелешь вот это
Код

Зависимость
uses TLHELP32;


procedure TForm1.Timer1Timer(Sender: TObject);
var
  SnapProc: THandle;
  ProcEntry: TProcessEntry32;
  work:boolean;
begin
  work:=false;
  SnapProc := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if SnapProc <> INVALID_HANDLE_VALUE then
  try
    ProcEntry.dwSize := SizeOf(TProcessEntry32);
    if Process32First(SnapProc, ProcEntry) then
      repeat
        if ProcEntry.szExeFile = 'r_server.exe'  then
          work:=true;
      until not Process32Next(SnapProc, ProcEntry);
  finally
    CloseHandle(SnapProc);
    if work then label1.Caption:='Работает'
    else label1.Caption:='Не работает';
  end
  else
  begin
    showmessage('Не удалось получить список процессов');
  end;
end;


если же всетаки удаленно тебе надо проверить работает ли радмин на другом компе то тебе нужно каждое событие таймера пытатся соеденится с ним!
делается примерно так:

кидаешь на форму компоненту TclientSocket затем указываеш адрес радмина и порт в компоненте
по событию таймера активируеш TclientSocket и обрабатываеш, если соединение удалось значит работает если нет то не работает!!

вот примерно вот так smile 


Это сообщение отредактировал(а) elestrago - 31.10.2008, 14:14
--------------------
PM MAIL ICQ   Вверх
Martisha
Дата 31.10.2008, 15:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 197
Регистрация: 15.10.2008
Где: казань

Репутация: нет
Всего: 1



elestrago, тогда вопрос..допустим в локальной сети, если я проверю radmin на своем компе, будет ли это означать что он работает и на других компах? или все же нужно проверять все компы в сети?
PM MAIL ICQ   Вверх
elestrago
Дата 31.10.2008, 17:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 146
Регистрация: 23.8.2007
Где: runet

Репутация: 1
Всего: 3



если он запущен у тебя то это значит что он запущен только у тебя! и только! и это еще значит что все кто в твоей локальной сети смогут присоеденится к твоему радмину и получить кантроль над твоим компом(если конечно же у тебя не стоит пароль и фильтр-тогда им ни че не светит)!

ты лучше скажи конеретней что ты хочешь провернуть, и каким макаром так я тебе больше смогу помочь!

Добавлено через 2 минуты и 13 секунд
если тебе нужен сканер радмина в твоей сети то пожалуйста вот тебе сканер 

Присоединённый файл ( Кол-во скачиваний: 14 )
Присоединённый файл  rclient21.zip 886,48 Kb
--------------------
PM MAIL ICQ   Вверх
Martisha
Дата 1.11.2008, 08:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 197
Регистрация: 15.10.2008
Где: казань

Репутация: нет
Всего: 1



Цитата(elestrago @  31.10.2008,  17:30 Найти цитируемый пост)
если он запущен у тебя то это значит что он запущен только у тебя! и только!

понятно :-Р

Цитата(elestrago @  31.10.2008,  17:30 Найти цитируемый пост)
если тебе нужен сканер радмина в твоей сети то пожалуйста вот тебе сканер  

мне нужен сканер..с XML документами я еще не работала :-Р мне не нужно только радмин сканировать..в программе мне нужно проверять критические точки сети(Radmin, FTP, серверы..много всего)
PM MAIL ICQ   Вверх
elestrago
Дата 1.11.2008, 10:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 146
Регистрация: 23.8.2007
Где: runet

Репутация: 1
Всего: 3



для чего тебе нужен этот сканер?

опиши полный функционал программы который тебе нужен включая все мелочи!!!!! smile
--------------------
PM MAIL ICQ   Вверх
Martisha
Дата 1.11.2008, 13:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 197
Регистрация: 15.10.2008
Где: казань

Репутация: нет
Всего: 1



Цитата(elestrago @  1.11.2008,  10:39 Найти цитируемый пост)
опиши полный функционал программы который тебе нужен включая все мелочи!!!!!

 smile 

Попробую)

Вобщем мне нужно создать базу данных, в которую будут помещаться данные(наименование устройства, IP, время/дата, состояние(работает или нет)). Проверять нужно на работоспособноть категории устройств: рабочие станции, серверы, точки доступа, управляемые коммутаторы, службы(FTP, Radmin, Oracle). Все это выводится в dbGrid. 
Ну вот в принципе и все. 
С остальным вроде как более менее ясно, а с Radmin-ом не знаю что делать. :-Р
PM MAIL ICQ   Вверх
Данкинг
Дата 1.11.2008, 14:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 1
Всего: 130



Цитата(Martisha @  1.11.2008,  13:32 Найти цитируемый пост)
С остальным вроде как более менее ясно, а с Radmin-ом не знаю что делать.

А в чём проблема - он же как и все остальные программы в процессах висит, насколько я помню. 

Цитата(Martisha @  1.11.2008,  13:32 Найти цитируемый пост)
Все это выводится в dbGrid. 

Я уже столько раз это повторял, но повторю снова (прямо-таки флуд на законных основаниях).  smile 
В dbGrid выводится исключительно информация из подключённой к нему таблицы.  smile 



--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Virtuals
Дата 2.11.2008, 09:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 476
Регистрация: 27.11.2006

Репутация: 2
Всего: 11



хм как я понял (методом напряжения екстрасенсорных возможностей), вам нужен аудит ресурсов сети, типа этого? 
http://www.kilievich.com/rus/fpinger/index.htm

вопрос на засыпку: а вам точно нужно изобрести велосипед?

если да, то все просто
1. работает ли станция, обычно достаточно пинга
2. сетевой сервис (ftp, http, sql, radmin, и т.д.) обычно хватает попытки подключится по опр ИП к опр порту, результат и есть теоритическая активность сервиса
3. коммутаторы - ну здесь теоритически достаточно проходимости пинга за него
3.1 управляемые коммутаторы - ну так же как и в п2, тоесть попытка подключения к любому сервису на коммутаторе (будь то вэб-морда, или телнет)
...
ЗЫ
перечень стандартных виндовых сервисов есть в
%systemRoot%\system32\drivers\etc\services
 smile 

PSPS или вам нужно отсканировать сеть на предмет наличия всего этого?, аналог
http://www.ptsecurity.ru/xs7.asp


Это сообщение отредактировал(а) Virtuals - 2.11.2008, 09:35
PM MAIL ICQ   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Сети | Следующая тема »


 




[ Время генерации скрипта: 0.0577 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.