PDA

View Full Version : مقاله: مشکل در بدست آوردن سریال هارد ساتا



محسن بابائی
چهارشنبه 21 اسفند 1387, 22:08 عصر
سلام
من از این کد برای بدست آوردن شماره سریال هارد استفاده میکنم و لی ظاهرا روی بعضی از هاردهای ساتا جواب نمی ده . مشکلش چیه .


Imports System.Management
----------------------------------
dim strSerial as string
Dim physicalMedia As New Management.ManagementClass("Win32_PhysicalMedia")
For Each physicalMedium As Management.ManagementObject In physicalMedia.GetInstances()
strSerial =(CStr(physicalMedium("SerialNumber")))
Next physicalMedium

anooshiran
پنج شنبه 22 اسفند 1387, 03:40 صبح
http://www.vbforums.com/showthread.php?t=456757

محسن بابائی
پنج شنبه 22 اسفند 1387, 11:47 صبح
سلام . این لینک برا vb6 هستش. توی .net2005 نیاز دارم .
همینطور یه کد برا شماره سریال cpu می خوام .

morteza_261
پنج شنبه 22 اسفند 1387, 13:08 عصر
سلام
این یه نمونه برای بدست آوردن شماره سریال cpu .البته اگه یکم تغییرشبدی فکر میکنم بشه باهاش سریال هارد و ... رو بدست آورد
من دارم روش کار میکنم،اگه تونستی برای ما هم بزارید.ممنون میشم

لینک مطلب:


http://barnamenevis.org/forum/showthread.php?t=149707

لینک پروژه:


http://barnamenevis.org/forum/attachment.php?attachmentid=28821&d=1235905537

anooshiran
پنج شنبه 22 اسفند 1387, 17:14 عصر
سلام دوستان عزيز

با استفاده از كلاس زير مي توانيد سريال CPU و MacAddress و VolumeSerial هارد ديسك و شماره سريال MotherBorad را پيدا كنيد.





Imports System
Imports System.Management
Public Class SystemInfo
Public Shared Function GetProcessorId() As String
Dim strProcessorId As String = String.Empty
Dim query As New SelectQuery("Win32_processor")
Dim search As New ManagementObjectSearcher(query)
Dim info As ManagementObject
For Each info In search.Get()
strProcessorId = info("processorId").ToString()
Next
Return strProcessorId
End Function
Public Shared Function GetMACAddress() As String
Dim mc As ManagementClass = New ManagementClass("Win32_NetworkAdapterConfiguration")
Dim moc As ManagementObjectCollection = mc.GetInstances()
Dim MACAddress As String = String.Empty
For Each mo As ManagementObject In moc
If (MACAddress.Equals(String.Empty)) Then
If CBool(mo("IPEnabled")) Then MACAddress = mo("MacAddress").ToString()
mo.Dispose()
End If
MACAddress = MACAddress.Replace(":", String.Empty)
Next
Return MACAddress
End Function
Public Shared Function GetVolumeSerial(Optional ByVal strDriveLetter As String = "C") As String
Dim disk As ManagementObject = New ManagementObject(String.Format("win32_logicaldisk.deviceid=""{0}:""", strDriveLetter))
disk.Get()
Return disk("VolumeSerialNumber").ToString()
End Function
Public Shared Function GetMotherBoardID() As String
Dim strMotherBoardID As String = String.Empty
Dim query As New SelectQuery("Win32_BaseBoard")
Dim search As New ManagementObjectSearcher(query)
Dim info As ManagementObject
For Each info In search.Get()
strMotherBoardID = info("SerialNumber").ToString()
Next
Return strMotherBoardID
End Function
End Class

محسن بابائی
پنج شنبه 22 اسفند 1387, 21:35 عصر
سلام.
دوستان ممنون که جواب دادین . فقط اینکه مطمئن هستید که این کد ها بر روی هاردهای ساتا جواب میدن. من ساتا ندارم که تست کنم . دوستانی که هارد ساتا دارند تست کنند.
مرسی

محسن بابائی
سه شنبه 27 اسفند 1387, 08:09 صبح
دوستان عزیر یه لطفی بکنید یه کد درست درمون بدین . مرسی .

masoud.ramezani
سه شنبه 27 اسفند 1387, 12:08 عصر
سلام

راستش کدی که بالا دوست عزیزمون نوشته سریال هارد رو نمیده بلکه VolumeSerial هارد ديسك رو میده که خیلی به درد نمیخوره چون قابل تغییره. در ضمن من هم با این مشکل هارد ساتا کهبرخی جاها کار میکنه و برخی جاها نمیکنه برخورد داشتم. باید بگم این کد در رابطه با هارد های SCSI اصلا کار نمیکنه و به خطا میخوره.

محسن بابائی
سه شنبه 27 اسفند 1387, 17:21 عصر
پس باید چیکار کرد ، مسعود جان شما از چه کدی استفاده می کنی.

Dariuosh
جمعه 30 اسفند 1387, 02:51 صبح
http://www.codeproject.com/KB/system/GetHardwareInformation.aspx

محسن بابائی
یک شنبه 02 فروردین 1388, 12:52 عصر
سلام . داریوش عزیز این نمونه کد که لینک دادین هم مثل نمونه کدی که دوستان گذاشتن و همینطور خودم .

anooshiran
یک شنبه 02 فروردین 1388, 17:48 عصر
سلام دوست عزيز

در اين مورد من بسيار كندوكاو كردم ولي متاسفانه در vb.net نتوانستم به نتيجه اي برسم.
لينك زير محتوي پروژ اي است كه خواست شما را برآورده مي كند. فقط مشكل اينجاست كه كلاس اصلي به ++C است.

http://www.codeproject.com/KB/mcpp/DriveInfoEx.aspx