Public Function getIP() '******************************* 'ime: getIP (function) 'autor: Matt Donnan 'web: http://stackoverflow.com/ 'datum: Dec 7 '12 at 15:21 '******************************* Dim WMI As Object Dim qryWMI As Object Dim Item As Variant Set WMI = GetObject("winmgmts:\\.\root\cimv2") Set qryWMI = WMI.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration " & _ "WHERE IPEnabled = True") For Each Item In qryWMI getIP = Item.IPAddress(0) Next Set WMI = Nothing Set qryWMI = Nothing End Function