>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 >>