macaddress

[setak]

چطور می توان macaddress یک سیستم را در برنامه نوشته شده با vb.net پیدا کرد؟
ممنون

[aliila]

من طریقه بدست آوردن سریال هارد و یا درایو های
share شده و ... را بهت میگم شاید ....





Imports System.Management

Class DriveInfoApp

<STAThread()> _
Shared Sub Main()

Dim drives As New ArrayList

Dim query As New ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")

For Each wmiDrive As ManagementObject In query.Get()
Dim info As New DriveInfo
info.Model = wmiDrive("Model").ToString()
info.Type = wmiDrive("InterfaceType").ToString()
drives.Add(info)
Next

query = New ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMedia")

Dim i As Integer = 0
For Each wmiDrive As ManagementObject In query.Get()
' Get the hard drive from collection using index.
Dim info As DriveInfo = CType(drives(i), DriveInfo)
' Get the hardware serial number.
If wmiDrive("SerialNumber") Is Nothing Then
info.SerialNumber = "None"
Else
info.SerialNumber = wmiDrive("SerialNumber").ToString()
End If
i += 1
Next

' Display available hard drives.
For Each info As DriveInfo In drives
Console.WriteLine("Model" + vbTab + vbTab + ": " + info.Model)
Console.WriteLine("Type" + vbTab + vbTab + ": " + info.Type)
Console.WriteLine("Serial No." + vbTab + ": " + info.SerialNumber)
Next



Dim searcher1 As New ManagementObjectSearcher("SELECT * FROM Win32_Share")
Dim share1 As ManagementObject
For Each share1 In searcher1.Get()
Console.WriteLine("Share = " & share1("Name").ToString())
Next share1
' Return 0
' End Function
'End Class

Console.WriteLine("Press [Enter] to exit...")
Console.ReadLine()

End Sub

End Class

Class DriveInfo

Private _model As String
Private _type As String
Private _serialNumber As String

Public Property Model() As String
Get
Return _model
End Get
Set(ByVal Value As String)
_model = Value
End Set
End Property

Public Property Type() As String
Get
Return _type
End Get
Set(ByVal Value As String)
_type = Value
End Set
End Property

Public Property SerialNumber() As String
Get
Return _serialNumber
End Get
Set(ByVal Value As String)
_serialNumber = Value
End Set
End Property

End Class