ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Определение включенных компьютеров в сети
16 сообщений из 16, страница 1 из 1
Определение включенных компьютеров в сети
    #36773868
Dumm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dumm
Гость
Здравствуйте!
Есть такая проблема... Нужно определить включенные компы в сети (в домене). Машин довольно много, поэтому будет сканироваться весь диапазон адресов 0..255. Любое обращение к компу (попытка открытия файла, определение имени по IP-шнику) занимает продолжительное время, если данный комп выключен или вовсе отсутствует.
Нужно что-то вроде ping, только в VB среде. Использование WinSock тоже не годится, так как нужно тогда на каждую машину ставить клиента. Как просканировать IP-шники и быстро определить включенные машины средствами VB?
Спасибо.
...
Рейтинг: 0 / 0
03.08.2010, 20:20
| Ответить | Цитировать | Написать  
Определение включенных компьютеров в сети
    #36773871
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
http://sql.ru/forum/actualthread.aspx?tid=763465&hl=ping
...
Рейтинг: 0 / 0
03.08.2010, 20:21
| Ответить | Цитировать | Написать  
Определение включенных компьютеров в сети
    #36773878
Dumm
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dumm
Гость
Спасибо, попробую.
...
Рейтинг: 0 / 0
03.08.2010, 20:27
| Ответить | Цитировать | Написать  
Определение включенных компьютеров в сети
    #36774238
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HandKot
Участник
также можно попробовать
Код: plaintext
net view
ответ около секунды и список компов готов
...
Рейтинг: 0 / 0
04.08.2010, 08:20
| Ответить | Цитировать | Написать  
Определение включенных компьютеров в сети
    #36774277
AndrF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndrF
Участник
HandKotтакже можно попробовать
Код: plaintext
net view
ответ около секунды и список компов готов

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Option Explicit

Public Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long

Public Sub Main()
    Dim ws As New IWshRuntimeLibrary.WshShell, s As String, ss As String
    Dim f As New IWshRuntimeLibrary.FileSystemObject
    
    s = ws.Exec("D:\WINDOWS\system32\net.exe view").StdOut.ReadAll
    ss = s
    OemToChar ss, s
    
    Debug.Print s
End Sub
...
Рейтинг: 0 / 0
04.08.2010, 09:05
| Ответить | Цитировать | Написать  
Определение включенных компьютеров в сети
    #36774289
AndrF
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndrF
Участник
Точнее так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Option Explicit

Public Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long

Public Sub Main()
    Dim ws As New IWshRuntimeLibrary.WshShell, s As String, ss As String
    Dim f As New Scripting.FileSystemObject
    
    s = ws.Exec(f.GetSpecialFolder(SystemFolder) & "\net.exe view").StdOut.ReadAll
    ss = s
    OemToChar ss, s
    
    Debug.Print s
End Sub

Но так мелькает окошко консоли - чтобы оно не мелькало нужно вызывать net view используя CreateProcess, скрывая консоль и перехватывая тот же StdOut...
...
Рейтинг: 0 / 0
04.08.2010, 09:14
| Ответить | Цитировать | Написать  
Определение включенных компьютеров в сети
    #36774323
kiv-1980
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kiv-1980
Участник
HandKotтакже можно попробовать
Код: plaintext
net view
ответ около секунды и список компов готов
К сожалению у утилиты net, нет возможности вывести IP адрес машины. Чаще всего пригождается IP адрес, а не имя компа в сети. А так работает она быстро.
...
Рейтинг: 0 / 0
04.08.2010, 09:34
| Ответить | Цитировать | Написать  
Определение включенных компьютеров в сети
    #36774468
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HandKot
Участник
для автора, нужно было
автор Нужно определить включенные компы в сети (в домене).
а получив список компов, можно определить и их адреса

при помощи PING можно определить адреса доступных компов, но при наличии более одной подсети, кол-во циклов для определения возрастает в неколько раз
...
Рейтинг: 0 / 0
04.08.2010, 10:39
| Ответить | Цитировать | Написать  
Определение включенных компьютеров в сети
    #36775107
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Dumm
> Здравствуйте!
> Есть такая проблема... Нужно определить включенные компы в сети (в домене). Машин довольно много,

Я вот не совсем понимаю, у админов есть спец-утилиты, которые мониторят кто и что делается в сети зачем ещё один
велосипед???

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
04.08.2010, 14:08
| Ответить | Цитировать | Написать  
Определение включенных компьютеров в сети
    #36775223
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HandKot
Участник
Игорь Горбонос
> Автор: Dumm
> Здравствуйте!
> Есть такая проблема... Нужно определить включенные компы в сети (в домене). Машин довольно много,

Я вот не совсем понимаю, у админов есть спец-утилиты, которые мониторят кто и что делается в сети зачем ещё один
велосипед???



Мне это нужно было когда писал скрипт.
В скрипте на доступные компы раскидывались задания.
Получилось что-то вида "распределенных вычислений"
...
Рейтинг: 0 / 0
04.08.2010, 14:47
| Ответить | Цитировать | Написать  
Определение включенных компьютеров в сети
    #37221734
GekoO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GekoO
Гость
AndrFТочнее так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Option Explicit

Public Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long

Public Sub Main()
    Dim ws As New IWshRuntimeLibrary.WshShell, s As String, ss As String
    Dim f As New Scripting.FileSystemObject
    
    s = ws.Exec(f.GetSpecialFolder(SystemFolder) & "\net.exe view").StdOut.ReadAll
    ss = s
    OemToChar ss, s
    
    Debug.Print s
End Sub

Но так мелькает окошко консоли - чтобы оно не мелькало нужно вызывать net view используя CreateProcess, скрывая консоль и перехватывая тот же StdOut...


Public Declare Function OemToChar Lib "user32" Alias "OemToCharA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long -> бУдет выдаваться ошибка "Константы, ряды устанавливаемой длины, масивы, определяемые пользователем типы и инструкции Declare, не позволенны как общие участники объектных модулей"
...
Рейтинг: 0 / 0
19.04.2011, 04:09
| Ответить | Цитировать | Написать  
Определение включенных компьютеров в сети
    #37221826
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
GekoOбУдет выдаваться ошибка "Константы, ряды устанавливаемой длины, масивы, определяемые пользователем типы и инструкции Declare, не позволенны как общие участники объектных модулей "
Так и не надо размещать этот код в объектном модуле
...
Рейтинг: 0 / 0
19.04.2011, 09:03
| Ответить | Цитировать | Написать  
Определение включенных компьютеров в сети
    #37221833
Irenka19953
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Irenka19953
Гость
Привет)
...
Рейтинг: 0 / 0
19.04.2011, 09:08
| Ответить | Цитировать | Написать  
Определение включенных компьютеров в сети
    #37221893
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
 
Irenka19953Привет)
интересно, 19953 - это год рождения?..
...
Рейтинг: 0 / 0
19.04.2011, 09:41
| Ответить | Цитировать | Написать  
Определение включенных компьютеров в сети
    #37222016
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
 
> Автор: Shocker.Pro
> +
> Irenka19953
> Привет)
> интересно, 19953 - это год рождения?..

Ставлю бутылку тёмного гёссера на март девяносто пятого


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
19.04.2011, 10:42
| Ответить | Цитировать | Написать  
Определение включенных компьютеров в сети
    #37222411
Фотография Shamanus
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shamanus
Участник
 
Игорь Горбонос> Автор: Shocker.Pro
> +
> Irenka19953
> Привет)
> интересно, 19953 - это год рождения?..


Ставлю бутылку тёмного гёссера на март девяносто пятого



ставлю бутыль Jameson-а, что её зовут Ирина
...
Рейтинг: 0 / 0
19.04.2011, 12:57
| Ответить | Цитировать | Написать  
16 сообщений из 16, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Определение включенных компьютеров в сети
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=103&tid=2158790]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 33ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 50ms
get tp. blocked users:
 2ms
others: 367ms
total:  493ms
созд. / загр.: 493ms
x
x
Закрыть


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