Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 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.038 c
1-1096479986
xman
2004-09-29 21:46
2004.10.17
TreeView


6-1092239883
Fifajan
2004-08-11 19:58
2004.10.17
Вопрос по написанию CGI для гостевой книги


1-1096821146
001
2004-10-03 20:32
2004.10.17
Как манипулировать дочерними окнами?


6-1091819499
new developer
2004-08-06 23:11
2004.10.17
Помогите сделать в NNSMTP русский шрифт


1-1096562084
Никита
2004-09-30 20:34
2004.10.17
Изменить TMemo





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский