Вывести имя компьютера, MAC- и IP-адрес

@morfeo · Регистрация: 30.04.2008

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

Подскажите, плз, чайнику.
Кое-как написал скрипт, показывающий имя комп, мас и ip, только видимо не правильно. Показывает значение мас и ip, если поменять местами вывод имени и мас`а то наоборот, показывает имя и ip и т.д.

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
28
29
30
31
32
33
strComputer = "."
Set SWBemlocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = SWBemlocator.ConnectServer(strComputer,"root\CIMV2")
 
Set HostNameSet = objWMIService.ExecQuery("select DNSHostName from Win32_NetworkAdapterConfiguration where ipenabled = true")
Set MACAddress = objWMIService.ExecQuery("select MACAddress from Win32_NetworkAdapterConfiguration where ipenabled = true")
Set IPConfigSet = objWMIService.ExecQuery("select IPAddress from Win32_NetworkAdapterConfiguration where ipenabled = true")
 
 
 
For Each obj in HostNameSet
    Text = "Имя компьютера: " & obj.DNSHostName & VbCrLf
Next
 
 
Text = Text & VbCrLf
 
For Each oAdptr in MACAddress
    Text = "Физический адрес (MAC): " & oAdptr.MACAddress & VbCrLf
Next
 
Text = Text & VbCrLf
 
 
for each IPConfig in IPConfigSet
    if Not IsNull(IPConfig.IPAddress) then 
        for i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
            Text = Text & "Ваш IP: " &IPConfig.IPAddress(i)& VbCrLf
        next
    end if
next
 
 WScript.Echo Text

@loban_ser · 14.11.2014, 16:18

morfeo, а так?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Set objLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objLocator.ConnectServer(".", "root\cimv2")
 
Set HostNameSet = objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
 
For Each objitem in HostNameSet
    Str = vbNullString
    Str = Str & "Имя компьютера: " & objitem.DNSHostName & VbCrLf
    Str = Str & "Физический адрес (MAC): " & objitem.MACAddress & VbCrLf
    
    If NOT IsNULL(objItem.IPAddress)Then
        
        Str = Str & "Ваш IP: " & Join(objItem.IPAddress, ",")
    End If
 
    MsgBox Str
Next

@morfeo · 17.11.2014, 09:26 **[ТС]**

loban_ser, так отлично! Спасибо!

@Den1xxx · 11.11.2015, 14:27

Сообщение от morfeo

loban_ser, так отлично! Спасибо!

Немного подправил, чтобы код учитывал — Мак адрес и АйПи могут быть не одни.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Set objLocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = objLocator.ConnectServer(".", "root\cimv2")
 
Set HostNameSet = objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
 
    Str = vbNullString & VbCrLf
For Each objitem in HostNameSet
    Str = Str & "Имя компьютера: " & objitem.DNSHostName & VbCrLf
    Str = Str & "Физический адрес (MAC): " & objitem.MACAddress & VbCrLf
    
    If NOT IsNULL(objItem.IPAddress)Then
        
        Str = Str & "Ваш IP: " & Join(objItem.IPAddress, ",") & VbCrLf
    End If
 
Next
    MsgBox Str

А то вышеприведенный код в цикле затирал предыдущее значение.

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .

@morfeo 2 / 2 / 0 Регистрация: 30.04.2008 Сообщений: 51
	17.11.2014, 09:26 [ТС]
	loban_ser, так отлично! Спасибо! 0

Вывести имя компьютера, MAC- и IP-адрес

Решение