View Full Version : macaddress
setak
دوشنبه 25 اردیبهشت 1385, 11:10 صبح
چطور می توان macaddress یک سیستم را در برنامه نوشته شده با vb.net پیدا کرد؟
ممنون
aliila
چهارشنبه 27 اردیبهشت 1385, 12:57 عصر
من طریقه بدست آوردن سریال هارد و یا درایو های
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
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.