On 12/24/04 12:44 AM, "kweto" <[EMAIL PROTECTED]> wrote: > So I'm back to square one, i.e., how to use Rev to find out a computer's LAN > IP.
How about doing a shell to "ipConfig /all" and then parsing the result? On my Windows 98 machine I get two IP Addresses, one in a block that says "0 Ethernet adapter" and one that says "1 Ethernet adapter". I have a chunk of code that I've used to find the MAC address, so I adapted it to get the IP address. Since there's more than one, I continue to search until I get something other than 0.0.0.0 (watch for word wraps): on mouseUp put GetMyIP() into tIP if tIP contains "Error" then answer tIP else -- do what you want with the IP address end if end mouseUp function GetMyIP local tStart,tEnd put specialFolderPath("system") & "/IPCONFIG.EXE" into tWinIPConfig put specialFolderPath("system") & \ "/SYSTEM32/IPCONFIG.EXE" into tWinSysIPConfig put (there is a file tWinIPConfig) into winExists put (there is a file tWinSysIPConfig) into sys32Exists if winExists or sys32Exists then set the hideConsoleWindows to true put shell("ipconfig /all") into tData repeat if matchChunk(tData,"IP Address[\. ]*: ([A-Z0-9\.]*)",tStart,tEnd) then put char tStart to tEnd of tData into tIP if tIP <> "0.0.0.0" then return tIP else delete char 1 to tEnd of tData end if else return "Error: IP Address not found." end if end repeat return "Error: IP Address not found." else return "IPCONFIG not found" end if end GetMyIP HTH, Ken Ray Sons of Thunder Software Web site: http://www.sonsothunder.com/ Email: [EMAIL PROTECTED] _______________________________________________ use-revolution mailing list use-revolution@lists.runrev.com http://lists.runrev.com/mailman/listinfo/use-revolution