Search Forum Home   Profox  Mesaje fara legatura cu FoxPro  MAC Address...  MAC Address    7/1/2011 2:52:44 PM ioandan_chelemen2006 224 posts MAC Address  (N/A) cum arata o functie care sa-mi returneze adresa placii de retea ?  7/1/2011 6:55:59 PM dni 420 posts Re: MAC Address  (N/A) ...gasesti la: http://news2news.com/vfp/index.php?example=347  7/9/2011 9:56:34 PM alex_pascanu 80 posts Re: MAC Address  (N/A) cred catrebuie sa recurgi la wmi pt asa ceva.Wmi exounse niste interfete com ,cred,nu am lucrat cu wmi decat managed.  7/11/2011 9:49:41 AM Doru Constantin 321 posts Re: MAC Address  (N/A)  ioandan_chelemen2006 wrote cum arata o functie care sa-mi returneze adresa placii de retea ? *--> http://msdn.microsoft.com/en-us/library/aa394217%28v=vs.85%29.aspx Clear strComputer = "." objWMIService = Getobject("winmgmts:\\" + strComputer + "\root\CIMV2") colItems = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration",,48) For Each objItem In colItems     If Not Isnull(objItem.MACAddress)         ?         ? "Description: ", objItem.Description         ? "MACAddress:  ", objItem.MACAddress     Endif Endfor  7/11/2011 10:29:38 AM Doru Constantin 321 posts Re: MAC Address  (N/A)  ioandan_chelemen2006 wrote cum arata o functie care sa-mi returneze adresa placii de retea ? *--> http://www.tek-tips.com/viewthread.cfm?qid=303635&page=488 Clear #Define ERROR_SUCCESS           0 #Define ERROR_NOT_SUPPORTED     50 #Define ERROR_INVALID_PARAMETER 87 #Define ERROR_BUFFER_OVERFLOW   111 #Define ERROR_NO_DATA           232 Declare Integer GetAdaptersInfo In iphlpapi    String @pAdapterInfo, Long @pOutBufLen Local lcBuffer, lnBufsize lnBufsize = 0 lcBuffer = "" * this call usually returns the ERROR_BUFFER_OVERFLOW * with lnBufsize set to the required amount of memory = GetAdaptersInfo(@lcBuffer, @lnBufsize) lcBuffer = Replicate(Chr(0), lnBufsize) If GetAdaptersInfo(@lcBuffer, @lnBufsize) # ERROR_SUCCESS     * still something is wrong     Return Endif *|typedef struct _IP_ADAPTER_INFO { *|  struct _IP_ADAPTER_INFO* Next;         0:4 *|  DWORD ComboIndex;                      4:4 *|  char AdapterName[MAX_ADAPTER_NAME_LENGTH + 4];          8:260 *|  char Description[MAX_ADAPTER_DESCRIPTION_LENGTH + 4]; 268:132 *|  UINT AddressLength;                       400:4 *|  BYTE Address[MAX_ADAPTER_ADDRESS_LENGTH]; 404:8 *|  DWORD Index;                              412:4 *|  UINT Type;                                416:4 *|  UINT DhcpEnabled;                         420:4 *|  PIP_ADDR_STRING CurrentIpAddress;         424:... *|  IP_ADDR_STRING IpAddressList; *|  IP_ADDR_STRING GatewayList; *|  IP_ADDR_STRING DhcpServer; *|  BOOL HaveWins; *|  IP_ADDR_STRING PrimaryWinsServer; *|  IP_ADDR_STRING SecondaryWinsServer; *|  time_t LeaseObtained; *|  time_t LeaseExpires; *|} IP_ADAPTER_INFO, *PIP_ADAPTER_INFO; #Define MAX_ADAPTER_NAME_LENGTH        256 #Define MAX_ADAPTER_DESCRIPTION_LENGTH 128 #Define MAX_ADAPTER_ADDRESS_LENGTH     8 ? "Adapter name:", Strtran(Substr(lcBuffer, 9, 260), Chr(0), "") ? "Description: ", Strtran(Substr(lcBuffer, 269, 132), Chr(0), "") Local lnAddrlen, lcAddress, ii, ch lnAddrlen = Asc(Substr(lcBuffer, 401, 1)) lcAddress = Substr(lcBuffer, 405, lnAddrlen) *--> modificare fata de codul postat pe tek-tips.com ? "MAC Address: " lcAux = "" For ii = 1 To lnAddrlen     lcAux = lcAux + Right(Transform(Asc(Substr(lcAddress, ii,1)), "@0"), 2) + ":" Endfor ?? Strtran(lcAux, ":", "", 6) *--< ? "Index?:", Asc(Substr(lcBuffer, 413,1)) ? "Type:", Asc(Substr(lcBuffer, 417,1)) ? "Current IP address:", Strtran(Substr(lcBuffer, 433,15), Chr(0),"")  Page 1 of 1   Profox  Mesaje fara legatura cu FoxPro  MAC Address... Flat View Tree View Oldest To Newest Newest To Oldest