>Hi,
>
>I think somebody has posted this subject not long ago. Can somebody lead me to the right thread? Or can somebody post it here?
>
>Thanks.

lparameters tcComputer, tcUser, tcPassword
local loWMI, colNetAdapters, loNetAdapter, lcComputer

lcComputer    = Iif(Vartype(tcComputer) = "C" and not Empty(tcComputer), tcComputer, ".")
lcUser        = iif(vartype(tcUser) = "C", tcUser, "")
lcPassword    = iif(vartype(tcPassword) = "C", tcPassword, "")

lcDomain     = getenv('USERDNSDOMAIN')
loLocator    = createobject('WbemScripting.SWbemLocator')
try
    if empty(lcUser)
        loWMI        = loLocator.ConnectServer(lcComputer)
    else
        loWMI        = loLocator.ConnectServer(lcComputer, 'root\cimv2', lcUser, lcPassword)
    endif
catch
    loWMI        = null
endtry

if not isnull(loWMI)
    loNetAdapters    = loWMI.ExecQuery("select * from Win32_NetworkAdapterConfiguration where IPEnabled='true' and DNSDomain='" + lcDomain + "'"")

    For Each loNetAdapter in loNetAdapters
        ? loNetAdapter.Caption, loNetAdapter.MACAddress
        for each lcIP in loNetAdapter.IPAddress
            ?? Chr(9), lcIP
        endfor
        ?
    Endfor
endif

This code contains parts that are not required if you are interested just in the local computer, it is intended to be used to get MAC/IP(s) of any computer in the network, if you have enough rights. You can see that the IP can be more than one, that is why there is an inner loop.