DECLARE INTEGER GetAdaptersInfo IN iphlpapi ; STRING @pAdapterInfo, LONG @pOutBufLen LOCAL lcBuffer, lnBufsize lnBufsize = 0 lcBuffer = "" = GetAdaptersInfo(@lcBuffer, @lnBufsize) lcBuffer = Repli(Chr(0), lnBufsize) IF GetAdaptersInfo(@lcBuffer, @lnBufsize) <> 0 && ERROR_SUCCESS * =MESSAGEBOX('MSI Card Not Found',64) ENDIF LOCAL lnAddrlen, lcAddress, ii lnAddrlen = Asc(SUBSTR(lcBuffer, 401, 1)) lcAddress = SUBSTR(lcBuffer, 405, lnAddrlen) lcThisID = '' lcThisHex = '' FOR ii = 1 TO lnAddrLen lcThisID = lcThisID + ; IIF(ii>1, ',' ,'') + ; ALLTRIM(STR(ASC(SUBSTR(lcAddress,ii,1)))) lcThisHex = lcThisHex + ; IIF(ii>1,':','') + ; RIGHT(TRANSFORM(ASC(SUBSTR(lcAddress,ii,1)),'@0'),2) ENDFOR RETURN lcThisHex