Скачать: CL | DM;

Состояние Net send   Найти похожие ветки 

← →
eRoR_rrr   (2004-08-09 05:00) [0]

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

---

← →
Rouse_ ©   (2004-08-09 10:14) [1]


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;

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

---

← →
Rouse_ ©   (2004-08-09 10:17) [2]

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

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

---

← →
eRoR_rrr   (2004-08-09 14:57) [3]

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

---

← →
Rouse_ ©   (2004-08-09 16:01) [4]

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

---

← →
eRoR_rrr   (2004-08-09 17:55) [5]

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

---

← →
Rouse_ ©   (2004-08-09 21:58) [6]

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

---

← →
eRoR_rrr   (2004-08-10 17:17) [7]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.02 c