بدست آوردن mac address

[maminb]

سلام دوستان. می‏خواستم بدونم آیا کدی برای بدست آوردن mac address وجود داره یا نه؟



اگه آره که ممنون می‏شم برام بذارید.






با تشکر.

[rooshan2008]

سلامبه دوست عزیز
این کد رو ببین:
اول این رو اینپرت کن >>System.Management



Dim ManagementScope As New ManagementScope("\\ComputerName")
Dim QueryString As String = "SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = 1"
Dim ObjectQuery As New ObjectQuery(QueryString)
Dim Searcher As New ManagementObjectSearcher(ManagementScope, ObjectQuery)
Dim theResultsCollection As ManagementObjectCollection = Searcher.Get()
For Each currentResult As ManagementObject In theResultsCollection
MessageBox.Show(currentResult("MacAddress"))
Next


این کد هم همین کارو میکنه:



Dim Services = GetObject("winmgmts:\\ComputerName")
Dim ObjectSet = Services.InstancesOf("Win32_NetworkAdapterConfiguration")
For Each wbemObject In ObjectSet
MsgBox("ARP Always Source Route: " & wbemObject.ARPAlwaysSourceRoute)
MsgBox("Caption: " & wbemObject.Caption)
MsgBox("Database Path: " & wbemObject.DatabasePath)
MsgBox("Default IP Gateway: " & wbemObject.DefaultIPGateway)
MsgBox("DefaultTTL: " & wbemObject.DefaultTTL)
MsgBox("Description: " & wbemObject.Description)
MsgBox("DHCP Enabled: " & wbemObject.DHCPEnabled)
MsgBox("DHCP Lease Expires: " & wbemObject.DHCPLeaseExpires)
MsgBox("DHCP Lease Obtained: " & wbemObject.DHCPLeaseObtained)
MsgBox("DHCP Server: " & wbemObject.DHCPServer)
MsgBox("DNS Domain: " & wbemObject.DNSDomain)
MsgBox("DNS Hostname: " & wbemObject.DNSHostname)
MsgBox("IP Address: " & wbemObject.IPAddress)
MsgBox("IP Subnet: " & wbemObject.IPSubnet)
MsgBox("MAC Address: " & wbemObject.MacAddress)
MsgBox("Service Name: " & wbemObject.ServiceName)
Next

بجای computername نام کامپیوتر خودتون یا هر Computerداخل شبکه رو بنویسید

[Mehdi Asgari]

نیازی به استفاده از WMI نیست.



Imports System.Net.NetworkInformation

Module Module1

Sub Main()
Dim interfaces() = NetworkInterface.GetAllNetworkInterfaces()
For Each i In interfaces
Console.WriteLine("{0}:{1}", i.Description, i.GetPhysicalAddress())
Next

End Sub

End Module

[maminb]

ممنون دوستان.


اگه بازم مشکلی بود می‏پرسم.