Узнать IP-Адреса

[|kerish|]

Как узнать все локальные IP-адреса компьютера?

То есть имеется несколько соединений, необходимо узнать IP-адрес компьютера каждого соединения.

[RayShade]

В WMI есть отличный класс Win32_NetworkAdapterConfiguration и в нем проперть IPAddress.



Как работать с WMI - поищи по форуму, тут много примеров.



Код будет примерно такой

Код: Выделить всё

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & strComputer & "\root\cimv2")
Set netCards = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration")


И вот в netCards у нас уже есть коллекция всех адаптеров. Перебирая ее For Each можно смотреть их адреса.

[|kerish|]

RayShade Спасибо, то что нужно!

[RayShade]

Пожалуйста

Почитай MSDN про этот класс - там в принципе, можно всю инфу о настройках вытащить. Не только адрес.

[JohnK]

Код: Выделить всё

Public Function GetIPs() As String

   Dim nicSet As SWbemObjectSet
   Dim nic As SWbemObject
   
   GetIPs = ""
   
   On Local Error Resume Next
   
   Set nicSet = GetObject("winmgmts:{impersonationLevel=impersonate}"). _
                           InstancesOf("Win32_NetworkAdapterConfiguration")
   
   For Each nic In nicSet
   
      If nic.IPEnabled Then
         GetIPs = GetIPs & nic.IPAddress(0) & vbCrLf
      End If

   Next

End Function