| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Состояние Net send [D7, WinXP]

eRoR_rrr ©   (2004-08-09 05:00:00) 

Как можна узнать возможно-ли отправить net send сообщение на удаленный компьютер, точнее как узнать запушена-ли данная служба? Очень сильно нужно. Заранее спасибо

---

eRoR_rrr   (2004-08-10 17:17:00) [1]

спасибо за более точный ответ

---

Rouse_   (2004-08-09 21:58:00) [2]

Проверил в одноранговой, без прав админа - не работает...

---

eRoR_rrr   (2004-08-09 17:55:00) [3]

Поробовал ввести имена 5-10 компов, а также пробовал ввести их IP адреса. Все ввожу верно. Сеть одноранговая.

---

Rouse_   (2004-08-09 16:01:00) [4]

А ты проверь правильно имя компьютера вводишь?
Сеть одноранговая или доменная?

---

eRoR_rrr   (2004-08-09 14:57:00) [5]

Все-бы хорошо но при попытке проверить состояния сервиса на удаленном компе, всегда выдается сообщение мол не могу подключится. На локальном компьютере все работает, а на удаленном не хотит =(

---

Rouse_   (2004-08-09 10:17:00) [6]

измени первую строку на
SCManager := OpenSCManager('\\имя компьютера', nil, SC_MANAGER_QUERY_LOCK_STATUS);

тогда можешь и без админских прав смотреть...

---

Rouse_   (2004-08-09 10:14:00) [7]


uses ..., WinSvr;

...

procedure TfrmGSServerSetting.Button1Click(Sender: TObject);
var
 SCManager, Service: SC_HANDLE;
 ServiceStatus: TServiceStatus;
begin
 SCManager := OpenSCManager('\\имя компьютера', nil, SC_MANAGER_ALL_ACCESS);
 if SCManager <> 0 then
 try
   Service := OpenService(SCManager, 'Messenger', SERVICE_QUERY_STATUS);
   if Service <> 0 then
   try
     if QueryServiceStatus(Service, ServiceStatus) and
       (ServiceStatus.dwCurrentState = SERVICE_RUNNING) then
       ShowMessage('Запущен')
     else
       ShowMessage('Не запущен');
   finally
     CloseServiceHandle(Service);
   end;
 finally
   CloseServiceHandle(SCManager);
 end
 else
   ShowMessage('Не могу подключиться');
end;

Нужны права админа на удаленном компьютере

---

Наверх