كود معرفة رقم USB

هل نستطيع معرفة رقم السريال الخاص بال USB بواسطة الكود مثلما تم معرفة السريال الخاص بالهاردديسك

أريد معرفة رقم السريال لأي جهاز موصل عن طريق USB سواء كانت فلاشة أو هاردديسك خارجي ....إلخ عن طريق الكود

اخي usb لو كانت خارجية من الممكن معرفة السيريل نمبر ليها ولكن usb الخاصة بالجهاز فلا يمكن معرفته لانه ملحق بالجهاز بمعني يعني تنفع تعرف السيريل نمبر بتاع الماوس ما ينفعش طبعا وده علي قدر معرفتي ........

وبالنسبة لمعرفة السيريل نمبر للاجهزة المتصلة بال usb مثل الفلاشات او Mp3 player وغيرها او هارد ديسك فا ينفع طبعا معرفة الرقم السيريل الخاص بالدريف بتعها ................. مثل :

Private Sub Form_Load()

Dim SerialN As New FileSystemObject

Text1.Text = Hex(SerialN.GetDrive("E:\").SerialNumber)


End Sub

وطبعا E هو رقم دريف الفلاشة او MP3 PLAYER

شكرا جدا بس لو ترسل كمان الـ referance يبقى كثر خيرك

تفضل اخي :

Microsoft Scripting Runtime

ألف شكر يا أخي متمنيا لك التوفيق

Max bayne كتب:

اخي usb لو كانت خارجية من الممكن معرفة السيريل نمبر ليها ولكن usb الخاصة بالجهاز فلا يمكن معرفته لانه ملحق بالجهاز بمعني يعني تنفع تعرف السيريل نمبر بتاع الماوس ما ينفعش طبعا وده علي قدر معرفتي ........

وبالنسبة لمعرفة السيريل نمبر للاجهزة المتصلة بال usb مثل الفلاشات او Mp3 player وغيرها او هارد ديسك فا ينفع طبعا معرفة الرقم السيريل الخاص بالدريف بتعها ................. مثل :

Private Sub Form_Load()

Dim SerialN As New FileSystemObject

Text1.Text = Hex(SerialN.GetDrive("E:\").SerialNumber)


End Sub

وطبعا E هو رقم دريف الفلاشة او MP3 PLAYER