<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
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 IPEnab