نام سخت افزار پورت سریال در vb.net

[saeidelectronic]

سلام دوستان
من می خوام یه برنامه ای بنویسم که توش با پورت سریال کار داره و نیاز دارم تا نام سخت افزار پورت سریال رو در بیارم همونی که در تصویر زیر با خط قرمز مشخص شده
116838

چون می خوام شماره پورت سریالی که این سخت افزار با این نام بهش وصل شده رو در بیارم چون امکان داره روی یه کامپیوتر دیگه این شماره پورت تغییر کنه و من می خوام برنامه من بصورت خودکار این پورت سریال که این سخت افزار بهش وصل شده رو شناسایی کنه
برنامه رو تو ویژال استدیو .NET ورژن 2008 می نویسم
لطفا راهنمایی کنید
ممون

[damanpak]

سلام
مطمئنا کدی برای این کاری که میخوای وجود داره اما متاسفانه من بلد نیستم
اما پیشنهاد میدم که این راه ساده رو انتخاب کنید
کنار فایل اجرایی برنامه یک فایل Txt بسازید و نام پورت رو توی اون ذخیره کنید
و در فرم لود برنامه ات محتوای فایل رو بخون و توی خاصیت PortName پورت سریالت قرار بده
اینجوری هروقت تغییر کنه راحت میتونی تغییرش بدی
من همیشه ازین راه استفاده میکنم

[boveiryghasem]

1- Project -> Add Reference
2- .NET -> System.Management ((این رفرنس رو اضافه کن
3- Import System.Management (رو تو قسمت پابلیک برنامت اضافه)
4- استفاده از کد زیر

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim searcher As New ManagementObjectSearcher( _
"root\cimv2", _
"SELECT * FROM Win32_SerialPort")

For Each queryObj As ManagementObject In searcher.Get()
MsgBox(queryObj("Name"))
Next

Catch err As ManagementException
MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
End Try
End Sub