Morteza_s
دوشنبه 25 آذر 1387, 17:45 عصر
سلام
من با استفاده از این تابع نام و سریال هارد رو بدست آوردم:
Public Shared Function HardID() As String
Dim searcher As ManagementObjectSearcher
Dim query1 As String = "SELECT * FROM Win32_DiskDrive"
Dim query2 As String = "SELECT * FROM Win32_PhysicalMedia"
Dim id As String
searcher = New ManagementObjectSearcher(query1)
For Each wmi_HD As ManagementObject In searcher.Get()
If Not wmi_HD("Model") Is Nothing Then
id = wmi_HD("Model").ToString()
End If
Next
searcher = New ManagementObjectSearcher(query2)
For Each wmi_HD As ManagementObject In searcher.Get()
If Not wmi_HD("SerialNumber") Is Nothing Then
id = id & wmi_HD("SerialNumber").ToString()
End If
Next
Return id
End Function
در حالت عادی مشکلی نداره، اما وقتی یک فلش مموری به سیستم متصل می کنم به جای هارد مشخصات فلش نصب شده رو بر می گردونه
چطور میشه از این مشکل جلوگیری کرد؟
من با استفاده از این تابع نام و سریال هارد رو بدست آوردم:
Public Shared Function HardID() As String
Dim searcher As ManagementObjectSearcher
Dim query1 As String = "SELECT * FROM Win32_DiskDrive"
Dim query2 As String = "SELECT * FROM Win32_PhysicalMedia"
Dim id As String
searcher = New ManagementObjectSearcher(query1)
For Each wmi_HD As ManagementObject In searcher.Get()
If Not wmi_HD("Model") Is Nothing Then
id = wmi_HD("Model").ToString()
End If
Next
searcher = New ManagementObjectSearcher(query2)
For Each wmi_HD As ManagementObject In searcher.Get()
If Not wmi_HD("SerialNumber") Is Nothing Then
id = id & wmi_HD("SerialNumber").ToString()
End If
Next
Return id
End Function
در حالت عادی مشکلی نداره، اما وقتی یک فلش مموری به سیستم متصل می کنم به جای هارد مشخصات فلش نصب شده رو بر می گردونه
چطور میشه از این مشکل جلوگیری کرد؟