VBScript информация о ПК без IPv6

@Birijok · Регистрация: 19.12.2021

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

Всем привет, пришла в голову идея использовать небольшой и простой скрипт для рабочего стола юзера.

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
strComputer = "."
Set SWBemlocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = SWBemlocator.ConnectServer(strComputer,"root\CIMV2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where ipenabled = true",,48)
For Each objItem in colItems
    Text = "PC Name: " & objItem.DNSHostName & VbCrLf
    for each propValue in objItem.IPAddress
        Text = Text & "IP address: " & propValue & VbCrLf 
    Next
Next
 WScript.Echo Text

Результат работы скрипта

https://www.cyberforum.ru/atta... 1644380348

Задача: скрипт выводит информацию о имени и IPv4 рабочего компьютера.
Предположу, что IPv6 исключается функцией Filter на знак двоеточие ':', но сам я общаюсь с VBS только на 'Вы', без помощи
не решу задачу.
Спасибо за внимание.

FlasherX · 09.02.2022, 12:03

Скопировать Ip адрес в буфер обмена

@Birijok · 14.02.2022, 08:40 **[ТС]**

FlasherX, Посмотрел указанную Вами по ссылке тему, скопировал приведенный там скрипт и...
Решительно ничего не происходит. Буфер обмена пуст, по сравнению с указанным мной скрипте в шапке темы и вопросе никаких всплывающих окон с инфо не появляется.

Вопрос: можете Вы подробнее описать, как работает скрипт по ссылке или как его часть вставить в указанный мной выше? Спасибо.

FlasherX · 14.02.2022, 09:39

Birijok, это кусок из моего старого домашнего кода:

Visual Basic
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
' Определитель IP
H = "HKLM\SYSTEM\CurrentControlSet\services\"
Hive1 = H & "RemoteAccess\Interfaces\"
Hive2 = H & "Tcpip\Parameters\Interfaces\"
 
On Error Resume Next
For i = 2 To 10
   N = Hive1 & i & "\"
   With CreateObject("WScript.Shell")
      .RegRead(N) : If Err.Number Then Exit For
      Key = Hive2 & .RegRead(N & "InterfaceName")
      IP = .RegRead(Key & "\IPAddress")
      If Err.Number Then Err.Clear
      If IsArray(IP) Then If UBound(IP) > -1 Then IP = Join(IP, vbLf)
      If InStr(IP, ".") = 0 Then IP = .RegRead(Key & "\DhcpIPAddress")
      If IP = "0.0.0.0" Then IP = "" Else IP = IP & vbLf
      If Err.Number = 0 Then MyIP = MyIP & IP
   End With : Err.Clear
Next : On Error Goto 0
If Split(MyIP, vbLf)(1) = "" Then Sym = "й" Else Sym = "e"
With CreateObject("Msxml2.XMLHTTP")
   .Open "GET", "http://ipinfo.io/ip", False
   On Error Resume Next: .Send 0
   If Err.Number = 0 Then sIP = .ResponseText
   MsgBox "Внутренни" & Sym & ":   " & MyIP & "Внешний:     " &_
   sIP, 64, Space(26) & "Мои текущие IP" : .Abort
End With

Подробно долго. Если коротко, то ищем в реестре массив серых или динамических адресов с прерыванием на первом найденном.
Главное, что это гораздо быстрее, чем дёргать WMI.

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

FlasherX 6994 / 2880 / 1108 Регистрация: 06.06.2017 Сообщений: 9,775
	09.02.2022, 12:03
	Скопировать Ip адрес в буфер обмена 0

@Birijok 0 / 0 / 0 Регистрация: 19.12.2021 Сообщений: 2
	14.02.2022, 08:40 [ТС]
	FlasherX, Посмотрел указанную Вами по ссылке тему, скопировал приведенный там скрипт и... Решительно ничего не происходит. Буфер обмена пуст, по сравнению с указанным мной скрипте в шапке темы и вопросе никаких всплывающих окон с инфо не появляется. Вопрос: можете Вы подробнее описать, как работает скрипт по ссылке или как его часть вставить в указанный мной выше? Спасибо. 0