ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как проверить из фокса в сети ли уомпьютер?
9 сообщений из 9, страница 1 из 1
Как проверить из фокса в сети ли уомпьютер?
    #32999468
Фотография givi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
givi
Участник
Идея такая - есть программа, в которой надо проверять какие юзеры работают (ну в сети компьютеры) а какие нет. Причем надо увидеть не то, работают они с моей программой или нет, а просто можно ли до них достучаться по сети. Есть ли какие решения. Можно ли использовать ping или что то эффективнее есть? (Все машины на 2000 винде)? Заранее спасибо...
...
Рейтинг: 0 / 0
06.04.2005, 09:44
| Ответить | Цитировать | Написать  
Как проверить из фокса в сети ли уомпьютер?
    #32999490
Andrey Ts
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Andrey Ts
Участник
можно так:
Код: plaintext
FILE("\\MXPR-000\Common\test.txt")
...
Рейтинг: 0 / 0
06.04.2005, 09:53
| Ответить | Цитировать | Написать  
Как проверить из фокса в сети ли уомпьютер?
    #32999497
Фотография givi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
givi
Участник
Это конечно выход, но в таком случае надо диски расшаривать. А вот этого бы не хотелось. Нельзя ли как по IP адресу?
...
Рейтинг: 0 / 0
06.04.2005, 09:56
| Ответить | Цитировать | Написать  
Как проверить из фокса в сети ли уомпьютер?
    #32999804
leaf
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leaf
Участник
here it is --> http://www.foxclub.ru/sol/index.php?act=list&kat=5&cp=1
...
Рейтинг: 0 / 0
06.04.2005, 11:15
| Ответить | Цитировать | Написать  
Как проверить из фокса в сети ли уомпьютер?
    #33000404
RS-232
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RS-232
Гость
Я уже где-то описывал вот такой прием:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
#define ERR_WSAStartup    '0' && Ошибка инсталляции WinSock 
#define ERR_CannotResolve '1' && Невозможносто разрешить имя 

SET LIBRARY TO Netlib.fll additive
LOCAL lcInIP, lcInHost,lcOutIP, lcOutHost as String
*=====================================================
* Определения имени удаленного сервера по адресу
* Для тех кто знает адрес
*=====================================================
lcInIP = "127.0.0.1"
lcOutHost = _GetIPToHost(@lcInIP)
DO case
CASE lcOutHost = ERR_WSAStartup
? "Ошибка инсталляции WinSock 2.0"
CASE lcOutHost = ERR_CannotResolve
? "Нет такого адреса"
Otherwise
?  "Имя сервера: "+lcOutHost
ENDCASE
*====================================================
* Определения адреса удаленного сервера по имени
* Для тех кто знает имя
*====================================================
lcInHost= "www.yandex.ru"
lcOutIP =_GetHostToIP(@lcInHost)
 
 DO case
CASE lcOutIP = ERR_WSAStartup
? "Ошибка инсталляции WinSock 2.0"
CASE lcOutIP = ERR_CannotResolve
? "Нет такого имени"
Otherwise
?  "Адрес сервера: "+lcOutIP
ENDCASE

* Для локальных  имен: имя  сервера  это имя компьютера
* Например посмотрим свой адрес: 
*!*lcInHost= "localhost"
*!*lcOutIP =_GetHostToIP(@lcInHost)
*!*	Cоответсвенно, если у тебя  комп недоступен то веренеться   - ERR_CannotResolve
...
Рейтинг: 0 / 0
06.04.2005, 13:42
| Ответить | Цитировать | Написать  
Как проверить из фокса в сети ли уомпьютер?
    #33000423
RS-232
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
RS-232
Гость
тынц
...
Рейтинг: 0 / 0
06.04.2005, 13:46
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Как проверить из фокса в сети ли уомпьютер?
    #37167165
glamis
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
glamis
Участник
Нет ли у кого описания Netlib?
...
Рейтинг: 0 / 0
16.03.2011, 11:32
| Ответить | Цитировать | Написать  
Как проверить из фокса в сети ли уомпьютер?
    #37167229
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: glamis
> Нет ли у кого описания Netlib?


 
а простой Ping не подойдет?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Parameters m.machine
Private m.return
m.return = .T.
Try
 If Empty(m.machine)
  m.return = .F.
 Endif

 objPing2 = Getobject("winmgmts:")
 objPing = objPing2.ExecQuery("select * from Win32_PingStatus where address = 'm.machine'")
 For Each objStatus In objPing
  If Isnull(objStatus.StatusCode) Or objStatus.StatusCode<> 0  Then
   m.return = .F.
   Exit
  Endif
 Next
Catch To oErr
 m.return = .F.
Endtry
Return m.return


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
16.03.2011, 11:58
| Ответить | Цитировать | Написать  
Как проверить из фокса в сети ли уомпьютер?
    #37167243
glamis
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
glamis
Участник
да нет вопрос стоит шире: опросить кто работает и вернуть их ip и имена. Вот с именами - неувязочка. Иногда возвращает 1, иногда путает имена на разных машинах.
...
Рейтинг: 0 / 0
16.03.2011, 12:02
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как проверить из фокса в сети ли уомпьютер?
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=37167165&tid=1584486]:
 0ms
get settings:
 11ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 45ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 17ms
total:  157ms
созд. / загр.: 157ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]