Какая есть функция для проверки наличия сетевого устройства?

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
igor_m
Постоялец
Постоялец
 
Сообщения: 343
Зарегистрирован: 22.03.2002 (Пт) 12:40

Какая есть функция для проверки наличия сетевого устройства?

Сообщение igor_m » 15.11.2004 (Пн) 10:26

Нужно просто послать сигнал на устройство и получить ответ, чтоб убедиться что оно работает, типа:
ping 194.85.132.197
По аналогии с объектом FSO есть объект для работы с сетевыми устройствами (не помню какой). У него должно быть какое-нибудь свойство доступности.
Т.е. создаешь объект, назначаешь ему адрес и проверяешь доступность. Объект - сетевой принтер, хотя в принципе это не важно.

Напишите, пожалуйста, эти 3 строчки - нет под рукой мануалов.
В общем нужно любым способом проверить, что определенный адрес подает признаки жизни.

Ruslan Demidow
Мужчина!
Мужчина!
Аватара пользователя
 
Сообщения: 987
Зарегистрирован: 25.03.2004 (Чт) 13:39
Откуда: N.Novgorod

Re: Какая есть функция для проверки наличия сетевого устройс

Сообщение Ruslan Demidow » 15.11.2004 (Пн) 12:25

igor_m писал(а):Нужно просто послать сигнал на устройство и получить ответ, чтоб убедиться что оно работает, типа:
ping 194.85.132.197
По аналогии с объектом FSO есть объект для работы с сетевыми устройствами (не помню какой). У него должно быть какое-нибудь свойство доступности.
Т.е. создаешь объект, назначаешь ему адрес и проверяешь доступность. Объект - сетевой принтер, хотя в принципе это не важно.

Напишите, пожалуйста, эти 3 строчки - нет под рукой мануалов.
В общем нужно любым способом проверить, что определенный адрес подает признаки жизни.


Проверить не могу: нет сети и соответственно удалённого устройства (принтера и т.п.)
Но посмотри, может быть можно будет использовать свойство (если такое есть) Ready, как например в этом vb-скрипте
Код: Выделить всё
set fso=createobject("Scripting.FileSystemObject")
set driveA=fso.getdrive("a:")

if driveA.isReady then
   msgbox "Дискета установлена"
else
   msgbox "Дискета не установлена"
end if
Это Ж-ж-ж-ж неспроста (с) Винни-Пух

RayShade
Scarmarked
Scarmarked
Аватара пользователя
 
Сообщения: 5511
Зарегистрирован: 02.12.2002 (Пн) 17:11
Откуда: Russia, Saint-Petersburg

Сообщение RayShade » 15.11.2004 (Пн) 16:01

Идем на http://msdn.microsoft.com/library/defau ... orking.asp



и та находим аж два примера, как это сделать.
I don't understand. Sorry.

igor_m
Постоялец
Постоялец
 
Сообщения: 343
Зарегистрирован: 22.03.2002 (Пт) 12:40

Сообщение igor_m » 15.11.2004 (Пн) 17:04

Спасибо, RayShade! Это то, что мне нужно.

Сам не смог найти, хотя искал, и на msdn тоже. Думал это делается через WScript.Network

Удачи!


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

    TopList