local loWMIService, loWBEMLocator, loLocator, loNACs, loNAC, lcGW, lcIPAddress, lcIPSubnet clear TRY loWBEMLocator = createObject("wbemScripting.SwbemLocator") loWMIService = loWBEMLocator.ConnectServer() CATCH loWMIService = null ENDTRY IF not Isnull(loWMIService) loNACs = loWMIService.ExecQuery('Select * from Win32_NetworkAdapterConfiguration where IPEnabled=True') for each loNAC in loNACs WITH loNAC ? "Caption : ", .Caption ? "Description : ", .Description ? "DNS Domain : ", .DNSDomain ? "DNS Host Name : ", .DNSHostName ? "MAC Address : ", .MACAddress ? "Database Path : ", .DatabasePath IF NOT ISNULL(.DefaultIPGateway) FOR EACH lcGW IN .DefaultIPGateway ? "Default Gateway : " + lcGW ENDFOR ENDIF IF NOT ISNULL(.IPSubnet) FOR EACH lcIPSubnet IN .IPSubnet ? "Subnet Mask : ", lcIPSubnet ENDFOR ENDIF IF NOT ISNULL(.IPAddress) FOR EACH lcIPAddress IN .IPAddress ? "Ip Address : ", lcIPAddress ENDFOR ENDIF ENDWITH ENDFOR ENDIF RETURN