Форум: "Сети";
Текущий архив: 2004.10.17;
Скачать: [xml.tar.bz2];
Вниз
Состояние 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 вся ветка
Форум: "Сети";
Текущий архив: 2004.10.17;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.045 c
