Требуется определить список IP-Адресов компьютера

[Infro-Storm]

Здраствуйте! Такая проблем пишу прогу на VB 6.0 для обновления IP-Адреса на динамическом DNServer'е. Требуется определить список IP-Адресов компьютера, тобеж не один IP-адрес 192.168.6.34 например. А все и VPN сессий, 89.172.134.39 и другой сетевой карты которая подключена к другой сети.
Один раз для другой цели нащёл исходник который определял все IP-адреса компьютера. Но диск формотнул, исходник потерял. Всю ночь рылся в инете пытался вспомнить как я нащёл, решил написать свою проблему на форуме. Может кто что подобное писал? Плиз оч. нужно. Заране огромное СПС

[alibek]

И какие действия ты предпринимал самостоятельно, прежде чем написать в данном подфоруме?

[Infro-Storm]

Весь инет перерыл ф поисках сея темы, но не чего даже близкого к этому не нащёл все предлагают Найти один IP адрес, Так вот в этом коде (Который не спомощью Winsock.LocalIP а с помошью DLL определяют IP) я попытался найти хотябы какую нить переменную каторая может ID ip адреса назначает но всё четно... Если нужно сылочку брошу на сей код, да его найти можно впринципе лего просто ввести "опредилить ip VB"

[RayShade]

Вообще самый просто способ -- через WMI. Залезь в MSDN, найди там подзодящий класс, а поискав WMI на этом форуме поймешь как им пользоваться И да, тему я перенес.

[Infro-Storm]

Огромное спс кто будет задоватся вопросом о параметрах сетевых карт вот код:

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

Option Explicit
Private Sub Command1_Click()
Dim mother, objcol, property, str
Set objcol = GetObject("WinMgmts:").InstancesOf("Win32_NetworkAdapter")
For Each mother In objcol
  MsgBox ("AdapterType-" & mother.AdapterType & vbCrLf & _
  "AdapterTypeID - " & mother.AdapterTypeID & vbCrLf & _
   "CreationClassName - " & mother.CreationClassName & vbCrLf & _
  "Description - " & mother.Description & vbCrLf & _
  "Description - " & mother.Description & vbCrLf & _
  "Index - " & mother.Index & vbCrLf & _
  "Installed - " & mother.Installed & vbCrLf & _
  "MACAddress - " & mother.MACAddress & vbCrLf & _
  "Manufacturer - " & mother.Manufacturer & vbCrLf & _
  "Name - " & mother.Name & vbCrLf & _
  "NetConnectionID - " & mother.NetConnectionID & vbCrLf & _
  "NetConnectionStatus - " & mother.NetConnectionStatus & vbCrLf & _
  "PNPDeviceID - " & mother.PNPDeviceID & vbCrLf & _
  "ProductName - " & mother.ProductName & vbCrLf & _
  "ServiceName - " & mother.ServiceName & vbCrLf & _
  "Caption - " & mother.Caption & vbCrLf & _
  "ConfigManagerErrorCode - " & mother.ConfigManagerErrorCode & vbCrLf & _
  "ConfigManagerUserConfig - " & mother.ConfigManagerUserConfig & vbCrLf & _
  "SystemName - " & mother.SystemName)
  Next
  Set objcol = Nothing
End Sub


[Infro-Storm]

А вот IP нету здесь но впринципе можно найти здесь http://msdn.microsoft.com/en-us/library/aa394216(VS.85).aspx

[Infro-Storm]

Во то что надо: http://msdn.microsoft.com/en-us/library ... 85,printer).aspx