Состояние 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 адреса. Все ввожу верно. Сеть одноранговая.

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

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

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

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