| Вопрос: MAC адрес сетевой карты | Добавлено: 15.11.06 14:53 |
Автор вопроса:  homer3 | ICQ: 348-281-874 |
|
Здравствуйте.
Может кто знает как получить MAC адрес сетевухи. Заранее спасибо. |
| Ответы | Всего ответов: 9 |
|
Номер ответа: 1 Автор ответа:  Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #1 | Добавлено: 15.11.06 19:22 |
|
ipconfig /all
#include <conio.h>
#include <windows.h> #include <iphlpapi.h> #include <iostream> #include <string> #include <cstdio> #pragma comment (lib, "iphlpapi.lib" 
using namespace std; #define scase(x) case x : return #x; string FmtIfType(DWORD t){ switch(t){ scase(MIB_IF_TYPE_OTHER); scase(MIB_IF_TYPE_ETHERNET); scase(MIB_IF_TYPE_TOKENRING); scase(MIB_IF_TYPE_FDDI); scase(MIB_IF_TYPE_PPP); scase(MIB_IF_TYPE_LOOPBACK); scase(MIB_IF_TYPE_SLIP); } } string FmtPhysAddr(BYTE *pa, DWORD pal){ if(pal == 0) return "[None]"; string res; char buff[1024] = ""; for(DWORD i = 0; i < pal; i++){ sprintf(buff, "%s%02X:", buff, pa[i] ;
} res.append(buff, pal * 3 - 1); return res; } string FmtBytesInOut(DWORD in, DWORD out){ string res; char buff[1024] = ""; sprintf(buff, "recv: %u; sent: %u", in, out); res = buff; return res; } void FmtIfTable(MIB_IFTABLE *table){ MIB_IFROW *row = &  table->table[0];
for(DWORD i = 0; i < table->dwNumEntries; i++){ cout << row[i].bDescr << endl; cout << "\tPhysical address: " << FmtPhysAddr(row[i].bPhysAddr, row[i].dwPhysAddrLen) << endl; cout << "\tType: " << FmtIfType(row[i].dwType) << endl; cout << "\tBytes: " << FmtBytesInOut(row[i].dwInOctets, row[i].dwOutOctets) << endl; cout << endl; } } int main(){ BYTE *ifTable = NULL; DWORD dwSize = 0; DWORD dwRetVal = 0; ifTable = new BYTE [sizeof(MIB_IFTABLE)]; if(GetIfTable((MIB_IFTABLE *)ifTable, &dwSize, true) == ERROR_INSUFFICIENT_BUFFER){ delete [] ifTable; ifTable = new BYTE [dwSize]; } if(GetIfTable((MIB_IFTABLE *)ifTable, &dwSize, true) == NO_ERROR){ FmtIfTable((MIB_IFTABLE *)ifTable); } else{ cout << "GetIfTable failed" << endl; } delete [] ifTable; getch(); return 0; } |
||
|
Номер ответа: 2 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #2 | Добавлено: 15.11.06 21:46 |
|
ipconfig /all Возможно прав нехватит...
Shell "ipconfig /all >> C:\1.txt" и парсить тектовый файл... Но лучще... Option Explicit
Private Const NCBASTAT = &H33 Private Const NCBNAMSZ = 16 Private Const HEAP_ZERO_MEMORY = &H8 Private Const HEAP_GENERATE_EXCEPTIONS = &H4 Private Const NCBRESET = &H32 Private Type NCB ncb_command As Byte ncb_retcode As Byte ncb_lsn As Byte ncb_num As Byte ncb_buffer As Long ncb_length As Integer ncb_callname As String * NCBNAMSZ ncb_name As String * NCBNAMSZ ncb_rto As Byte ncb_sto As Byte ncb_post As Long ncb_lana_num As Byte ncb_cmd_cplt As Byte ncb_reserve(9) As Byte ' Reserved, must be 0 ncb_event As Long End Type Private Type ADAPTER_STATUS adapter_address(5) As Byte rev_major As Byte reserved0 As Byte adapter_type As Byte rev_minor As Byte duration As Integer frmr_recv As Integer frmr_xmit As Integer iframe_recv_err As Integer xmit_aborts As Integer xmit_success As Long recv_success As Long iframe_xmit_err As Integer recv_buff_unavail As Integer t1_timeouts As Integer ti_timeouts As Integer Reserved1 As Long free_ncbs As Integer max_cfg_ncbs As Integer max_ncbs As Integer xmit_buf_unavail As Integer max_dgram_size As Integer pending_sess As Integer max_cfg_sess As Integer max_sess As Integer max_sess_pkt_size As Integer name_count As Integer End Type Private Type NAME_BUFFER name As String * NCBNAMSZ name_num As Integer name_flags As Integer End Type Private Type ASTAT adapt As ADAPTER_STATUS NameBuff(30) As NAME_BUFFER End Type Private Declare Function Netbios Lib "netapi32.dll" (pncb As NCB) As Byte Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (hpvDest As Any, ByVal hpvSource As Long, ByVal cbCopy As Long) Private Declare Function GetProcessHeap Lib "kernel32" () As Long Private Declare Function HeapAlloc Lib "kernel32" (ByVal hHeap As Long, ByVal dwFlags As Long, ByVal dwBytes As Long) As Long Private Declare Function HeapFree Lib "kernel32" (ByVal hHeap As Long, ByVal dwFlags As Long, lpMem As Any) As Long Private Function EthernetAddress(LanaNumber As Long) As String Dim udtNCB As NCB Dim bytResponse As Byte Dim udtASTAT As ASTAT Dim udtTempASTAT As ASTAT Dim lngASTAT As Long Dim strOut As String Dim x As Integer udtNCB.ncb_command = NCBRESET bytResponse = Netbios(udtNCB) udtNCB.ncb_command = NCBASTAT udtNCB.ncb_lana_num = LanaNumber udtNCB.ncb_callname = "* " udtNCB.ncb_length = Len(udtASTAT) lngASTAT = HeapAlloc(GetProcessHeap(), HEAP_GENERATE_EXCEPTIONS Or HEAP_ZERO_MEMORY, udtNCB.ncb_length) strOut = "" If lngASTAT Then udtNCB.ncb_buffer = lngASTAT bytResponse = Netbios(udtNCB) CopyMemory udtASTAT, udtNCB.ncb_buffer, Len(udtASTAT) With udtASTAT.adapt For x = 0 To 5 strOut = strOut & Right$("00" & Hex$(.adapter_address(x)), 2) Next x End With HeapFree GetProcessHeap(), 0, lngASTAT End If EthernetAddress = strOut End Function |
||
|
Номер ответа: 3 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #3 | Добавлено: 15.11.06 23:42 |
Попробуй найти описание функции Netbios в MSDN 
|
||
|
Номер ответа: 4 Автор ответа: homer3 ICQ: 348-281-874 Вопросов: 2 Ответов: 3 |
Профиль | | #4 | Добавлено: 16.11.06 06:13 |
| Всем спасибо! | ||
|
Номер ответа: 5 Автор ответа: homer3ICQ: 348-281-874 Вопросов: 2 Ответов: 3 |
Профиль | | #5 | Добавлено: 16.11.06 06:31 |
| А как бы енто все перевести на VB.NET? | ||
|
Номер ответа: 6 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #6 | Добавлено: 16.11.06 18:26 |
|
и парсить тектовый файл... Но лучще...
А на это хватит? ты уверен?
Option Explicit Private Const... |
||
|
Номер ответа: 7 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #7 | Добавлено: 16.11.06 19:49 |
|
А как бы енто все перевести на VB.NET?
Маршаллингом, например. Или так public static PhysicalAddress[] StoreNetworkInterfaceAddresses()
{ IPGlobalProperties computerProperties = IPGlobalProperties.GetIPGlobalProperties(); NetworkInterface[] nics = NetworkInterface.GetAllNetworkInterfaces(); if (nics == null || nics.Length < 1) { Console.WriteLine(" No network interfaces found." ;
return null; } PhysicalAddress[] addresses = new PhysicalAddress[nics.Length]; int i = 0; foreach (NetworkInterface adapter in nics) { IPInterfaceProperties properties = adapter.GetIPProperties(); PhysicalAddress address = adapter.GetPhysicalAddress(); byte[] bytes = address.GetAddressBytes(); PhysicalAddress newAddress = new PhysicalAddress(bytes); addresses[i++]=newAddress; } return addresses; } |
||
|
Номер ответа: 8 Автор ответа: student-uni Вопросов: 122 Ответов: 257 |
Профиль | | #8 | Добавлено: 17.11.06 00:00 |
|
Люди вы чего ???????
System.Net.NetworkInformation.NetworkInterface если конечно фреймворк 20 |
||
|
Номер ответа: 9 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #9 | Добавлено: 17.11.06 00:25 |
| Я что-то не так написал? | ||
Страница: 1 |