گرفتن سریال یک مودم دایال آپ و هارد

[Javad_raouf]

سلام می خوام توی برنامم سریال هارد و مودم دایال آپ رو بگیرم
برای قفل نرم افزاری و اینحور کارها
لطفا کمک کنید

[MahmoudiNik]

سلام جواد جان
اگه تو سایت یه جستجو میکردی کلی مطلب پیدا میکردی!
http://barnamenevis.org/forum/showthread.php?t=180675&highlight=%D8%B3%D8%B1%DB%8C%D8%A7%D9%84+%D9%87%D8 %A7%D8%B1%D8%AF

[Javad_raouf]

مرسی محمود جان
من توی سایت تا دلت بخواد سرچ کردم
ولی اکثرا فقط برای IDE جواب میدن و بعضی ها باز فقط برای ساتا جواب میدن
من یک کد کامل می خوام که خودش تشخیص بده هارد چیه و خودش سریال رو در بیاره

[Netsky]

سلام .
جواد جان ميتوني يه شرط بگذاري كه مثلا اگه هارد IDE بود اين كد اجرا بشه و اگه SATA بود اون كد . ( منظورم همون كدهايي كه خودت ميگي روي بعضي هاشون جواب ميده ) .
حالا من واست يه كد ميزارم كه نوع هارد رو برميگردونه .



Dim MOS As New ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive")
Dim Service As ManagementObject

Public Function Connection_Type() As String
'Get Connection Type.
Dim CT As String = ""
'----------------------------------
For Each Service In MOS.Get()
CT = Service("InterfaceType")
Next
Return CT
End Function

راستي يادت باشه كه اول رفرنس System.Management اضافه كني و بعد هم نيم اسپيس System.Management رو تعريف كني .
موفق باشي ........ :قلب:

[Javad_raouf]

من هاردم Sata هست ولی این تابع شما میگه IDE

[Netsky]

سلام .
جواد جان ، نميدونم دليلش چيه . ولي شما اين صفحه (http://msdn.microsoft.com/en-us/library/aa394132(VS.85).aspx) رو هم ببين . شايد بتونه كمكت كنه .
موفق باشي ..........

[Javad_raouf]

از کمک همه ممنون
دو تابع باحال توی یک سایت انگلیسی پیدا کردم که سریال نامبر مادربرد و آیدی CPU رو بر می گردونن
اگر کسی نیاز داشت اینم توابعش:

Public Function SerialNumberSystem() As String
' Get the Windows Management Instrumentation object.
Dim wmi As Object = GetObject("WinMgmts:")

' Get the "base boards" (mother boards).
Dim serial_numbers As String = ""
Dim mother_boards As Object = _
wmi.InstancesOf("Win32_BaseBoard")
For Each board As Object In mother_boards
serial_numbers &= ", " & board.SerialNumber
Next board
If serial_numbers.Length > 0 Then serial_numbers = _
serial_numbers.Substring(2)

Return serial_numbers
End Function

Public Function CpuId() As String
Dim computer As String = "."
Dim wmi As Object = GetObject("winmgmts:" & _
"{impersonationLevel=impersonate}!\\" & _
computer & "\root\cimv2")
Dim processors As Object = wmi.ExecQuery("Select * from " & _
"Win32_Processor")

Dim cpu_ids As String = ""
For Each cpu As Object In processors
cpu_ids = cpu_ids & ", " & cpu.ProcessorId
Next cpu
If cpu_ids.Length > 0 Then cpu_ids = _
cpu_ids.Substring(2)

Return cpu_ids
End Function