Есть ли интернет на удаленных компьютерах в сети

@kron_1 · Регистрация: 29.05.2017

Студворк — интернет-сервис помощи студентам

Доброго всем дня.
Есть следующая задача:
Необходимо узнать есть ли интернет на удаленных компьютерах в сети. Роясь по интернету. наткнулся на скрипт, который проверяет пингом yandex.ru, правда на vbs:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
comp="comp1"
iPing = Ping("www.yandex.ru")
 
If iPing=0 Then
  WScript.Echo "Интернет есть"
Else
  WScript.Echo "Интернета НЕТ, код ошибки: "& iPing
End If
 
Function Ping (strTarget)
  Set objWMIService = GetObject("winmgmts:" & comp & "\root\cimv2")
  Set colPings = objWMIService.ExecQuery ("Select * From Win32_PingStatus where Address = '" & strTarget & "'")
 
  For Each objPing in colPings
    Ping = objPing.StatusCode
  Next
End Function

можно ли его переделать под vb.net?
и второй вопрос:
Данный скрипт выдает информацию только по одному компьютеру. Можно ли сделать так, что бы, скажем в listview у меня находился список компьютеров, и при нажатии на кнопку он проходил по всем записям и дописывал во второй столбец listview есть интернет или нет.
или если будет проще сделать, то брал из текстового файла имена компьютеров и дописывал к ним в тот же текстовый файл есть интернет или нет.

Спасибо за помощь заранее.

@kron_1 · 18.07.2017, 12:33 **[ТС]**

Orlangur1991, все равно не добавляет в текстовый файл ничего

@Orlangur · 18.07.2017, 12:46

kron_1, скинь проект, я посмотрю

@kron_1 · 18.07.2017, 12:55 **[ТС]**

Orlangur1991,
там на форме только кнопка. Повторю задачу на всякий случай. Хочу что бы при нажатии на кнопку в текстовый файл были занесены только активные на данный момент компьютеры.
Спасибо

@Orlangur · 18.07.2017, 13:38

kron_1, а если просто открыть cmd и вбить net view, будет видно компы?

@kron_1 · 19.07.2017, 14:15 **[ТС]**

Orlangur1991,нет, не фурычит. попробую чего-нибудь другое придумать. спасибо за помощь. если будут вопросы,То еще обращусь.

Добавлено через 22 часа 16 минут
Orlangur1991, Еще одни вопрос созрел. Вы выше привели код, который добавляет к записям в listbox (к именам компьютеров) есть интернет или нет. А как можно так же через пробел добавить еще и ip адрес компьютера, например на выходе хочу что бы получилось следующее:
comp1 Интернет Есть! 192.168.1.2
copm2 Интернета нет! 192.168.1.3
com3 Интернет есть! 192.168.1.4
и. т. .д.
Спасибо за помощь.

Добавлено через 1 час 20 минут
как ip по хост имени вывести я нашел. а как в цикл это вставить..не знаю.

VB.NET
1
2
3
4
5
6
7
Dim ips As System.Net.IPAddress()
 
        ips = System.Net.Dns.GetHostAddresses("comp1")
 
        For Each ip As System.Net.IPAddress In ips
            MsgBox(ip.ToString())
        Next

@Orlangur · 19.07.2017, 23:51

kron_1, можно как-то так

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
  Function get_ip(ByVal host_name As String) As String
        Dim host_ip As String = ""
        Dim ips As System.Net.IPAddress()
        Try
            ips = System.Net.Dns.GetHostAddresses(host_name)
            For i = 0 To UBound(ips)
                If ips(i).ToString.Contains(".") Then
                    host_ip = ips(i).ToString
                    Return host_ip
                    Exit Function
                End If
            Next
        Catch ex As Exception
            host_ip = ex.Message
        End Try
 
        Return host_ip
 
    End Function

Где сам вывод в listbox

VB.NET
1
2
3
4
5
6
7
  For i = 0 To ListBox1.Items.Count - 1
            If GetPingStatus(ListBox1.Items.Item(i), "ya.ru") = 0 Then
                ListBox1.Items.Item(i) = ListBox1.Items.Item(i) & "  Есть инет " & get_ip(Replace(ListBox1.Items.Item(i), "\\", ""))
            Else
                ListBox1.Items.Item(i) = ListBox1.Items.Item(i) & "  Нет инета " & get_ip(Replace(ListBox1.Items.Item(i), "\\", ""))
            End If
        Next

@kron_1 · 20.07.2017, 10:23 **[ТС]**

Orlangur1991, спасибо, работает.
Так как список компов большой, а форма "подвисает" во время сканирования, нельзя ли сделать так что фокус шел по строкам вниз, то есть фокус там, который комп проверяется в данный момент.
И еще. зная сколько компов в listbox возможно ли подкруть под это заполнение progressbar'а?
Надеюсь, не совсем я вас замучал вопросами. Большое спасибо за помощь

Добавлено через 6 минут
Orlangur1991, и если возможно вывести еще в label процент заполнения.

@Orlangur · 20.07.2017, 15:01

kron_1, в архиве сделал и с listbox и с listview без зависания формы. Посмотри, какой удобней, используешь

Новые блоги и статьи Все статьи Все блоги /
Генератор паролей (вариант №4) Maks 01.11.2026 После публикации 3-го варианта генератора паролей, разослал его своим коллегам (с целью оценки), в итоге были получены следующие рекомендации: 1. Вернуть возможность использования знаков \| 1 l I;. . .	Генератор паролей (вариант №3) Maks 30.10.2026 Финальная версия генератора паролей 1С. Доработка решения в этот раз коснулась только визуальной части, а именно, добавлен реквизит ДопПараметры (тип Булево), который скрывает/ отображает реквизиты:. . .	Магическое мышление и магия, современная наука не отличима от магии (говорит ИИ Джемени) zorxor 30.10.2026 Джемени, расскажи, пожалуйста, что такое магическое мышление, что такое магия, почему современная наука чем-то напоминает магию? Фраза «Любая достаточно развитая технология неотличима от магии». . .	За какое время ИИ может подобрать пароль по хешу (рассказывает Джемени ИИ) zorxor 30.10.2026 Расскажи, Джемени, если известен хэш МД5, например, за сколько ИИ сможет подобрать соответствующий пароль? Искусственный интеллект (ИИ) может подобрать простой или средний по сложности пароль по. . .
Кто убил Suno? Почему наше солнышко погасло? (диалог с ИИ Джемени) zorxor 30.10.2026 Как убивали Suno. Хронология. «Убийство» музыкальной нейросети Suno — это затяжной процесс, в котором технологический хайп стартапа разбился о жесткую реальность судебных исков от гигантов. . .	Генератор паролей (вариант №2) Maks 30.10.2026 Обновленная версия ранее созданной обработки. Добавлены следующие реквизиты типа Булево: - Буквы; - Цифры; - Символы. Изменена логика команды "Сгенерировать" и процедуры "ПриОткрытии":. . .	Генератор паролей (вариант №1) Maks 29.10.2026 Реализация из решения ниже выполнена исключительно по моей инициативе, дабы облегчить себе работу в создании паролей для администрируемых мною сервисов и пользователей. Самым главным критерием для. . .	Установка ChatGPT (Codex) на Windows без использования Microsoft Store Fabien159 28.10.2026 Здравствуйте всем читающим! Опишу процесс установки ChatGPT (Codex) на Windows, если по каким-то причинам у вас не получается устанавить его через Microsoft Store. И так: 1. Скачиваем с. . .

@kron_1 0 / 0 / 0 Регистрация: 29.05.2017 Сообщений: 91
	18.07.2017, 12:33 [ТС]
	Orlangur1991, все равно не добавляет в текстовый файл ничего 0

@Orlangur Лень — мое второе и 3231 / 2418 / 688 Регистрация: 28.11.2014 Сообщений: 3,603 Записей в блоге: 3
	18.07.2017, 12:46
	kron_1, скинь проект, я посмотрю 1

@Orlangur Лень — мое второе и 3231 / 2418 / 688 Регистрация: 28.11.2014 Сообщений: 3,603 Записей в блоге: 3
	18.07.2017, 13:38
	kron_1, а если просто открыть cmd и вбить net view, будет видно компы? 1

@kron_1 0 / 0 / 0 Регистрация: 29.05.2017 Сообщений: 91
	20.07.2017, 10:23 [ТС]
	Orlangur1991, спасибо, работает. Так как список компов большой, а форма "подвисает" во время сканирования, нельзя ли сделать так что фокус шел по строкам вниз, то есть фокус там, который комп проверяется в данный момент. И еще. зная сколько компов в listbox возможно ли подкруть под это заполнение progressbar'а? Надеюсь, не совсем я вас замучал вопросами. Большое спасибо за помощь Добавлено через 6 минут Orlangur1991, и если возможно вывести еще в label процент заполнения. 0

Есть ли интернет на удаленных компьютерах в сети

Решение