* Program....: TEST_GETADAPTERSINFO.PRG * Version....: 1.0 * Author.....: Dipl. Kfm. Frank Dietrich * Date.......: 16.July 2003 * Notice.....: Copyright (c) 2003 * Frank Dietrich Datentechnik * Leo-Baeck-Str. 22 * 14165 Berlin * PHONE : +49-30-845 777-0 * FAX : +49-30-845 777-19 * CIS : 100322,333 * e-mail: frank.dietrich@dd-tech.de, All Rights Reserved. * Compiler...: Visual FoxPro 08.00.0000.2521 for Windows * Abstract...: Gebrauch der Funktion GetAdaptersInfo() * zur Ermittlung der lokalen IP-Adresse, MAC-Adresse * etc. * Changes....: declare INTEGER GetAdaptersInfo IN iphlpapi; STRING @pAdapterInfo, LONG @pOutBufLen LOCAL lcBuffer, lnBufsize lnBufsize = 4096 lcBuffer = Repli(Chr(0), lnBufsize) IF GetAdaptersInfo(@lcBuffer, @lnBufsize) = 0 strToFile(strTran(lcBuffer, chr(0), ""), "test.txt") ? "Current IP address:", STRTRAN(SUBSTR(lcBuffer, 433,15), Chr(0),"") ? "Gateway:", STRTRAN(SUBSTR(lcBuffer, 473,15), Chr(0),'') ENDIF modi file test.txtHTH