Гость
Войти | Профиль | Очистить
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как проверить из фокса в сети ли уомпьютер? / 9 сообщений из 9, страница 1 из 1
06.04.2005, 09:44
    #32999468
givi
givi
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как проверить из фокса в сети ли уомпьютер?
Идея такая - есть программа, в которой надо проверять какие юзеры работают (ну в сети компьютеры) а какие нет. Причем надо увидеть не то, работают они с моей программой или нет, а просто можно ли до них достучаться по сети. Есть ли какие решения. Можно ли использовать ping или что то эффективнее есть? (Все машины на 2000 винде)? Заранее спасибо...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.04.2005, 09:53
    #32999490
Andrey Ts
Andrey Ts
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как проверить из фокса в сети ли уомпьютер?
можно так:
Код: plaintext
FILE("\\MXPR-000\Common\test.txt")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.04.2005, 09:56
    #32999497
givi
givi
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как проверить из фокса в сети ли уомпьютер?
Это конечно выход, но в таком случае надо диски расшаривать. А вот этого бы не хотелось. Нельзя ли как по IP адресу?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.04.2005, 11:15
    #32999804
leaf
leaf
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как проверить из фокса в сети ли уомпьютер?
here it is --> http://www.foxclub.ru/sol/index.php?act=list&kat=5&cp=1
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.04.2005, 13:42
    #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:46
    #33000423
RS-232
RS-232
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как проверить из фокса в сети ли уомпьютер?
тынц
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
16.03.2011, 11:32
    #37167165
glamis
glamis
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как проверить из фокса в сети ли уомпьютер?
Нет ли у кого описания Netlib?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.03.2011, 11:58
    #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, 12:02
    #37167243
glamis
glamis
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как проверить из фокса в сети ли уомпьютер?
да нет вопрос стоит шире: опросить кто работает и вернуть их ip и имена. Вот с именами - неувязочка. Иногда возвращает 1, иногда путает имена на разных машинах.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как проверить из фокса в сети ли уомпьютер? / 9 сообщений из 9, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 342ms
Закрыть
start [/forum/topic.php?fid=41&mobile=1&tid=1584486]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 226ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 51ms
get tp. blocked users:
 2ms
others: 16ms
total:  342ms
x
x
Закрыть


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