[VB.NET] การอ่านค่า Serial Number ของ USB Flash Drive ด้วย WMI

thongkorn

สำหรับ WMI หรือ Windows Management Instrumentation ซึ่งแอดมินขอสรุปให้ฟังง่ายๆก่อนว่า มันเป็นส่วนที่สามารถดึงรายละเอียดทุกๆอย่างของตัวระบบปฏิบัติการ  Windows ออกมาทั้งด้านฮาร์ดแวร์และซอฟท์แวร์ เพื่อการแสดงผล หรือควบคุมได้ทั้งหมด ... ซึ่งก่อนหน้าที่ย้าย Hosting มาใหม่ แอดมินก็ได้เคยร่ายรายละเอียดให้ฟังไปเยอะ แต่ยังไม่ได้เอามาลงใหม่ ดังนั้นจึงขอข้ามส่วน WMI ไปก่อน สำหรับในบทความตอนนี้แอดมินจะขอนำเสนอ การแก้ปัญหาโจทย์ ในแบบที่เรียกได้ว่า Classic มากๆ เพราะเราจะใช้กระบวนการเรียนรู้ขั้นพื้นฐานมาแก้ปัญหาอย่างเป็นระบบ ซึ่งสามารถนำไปใช้งานได้กับภาษาระดับสูงทุกๆภาษา ...

เริ่มต้นการคิด ... แอดมินจะนำตัวอย่างจากของจริงมาให้พิจารณากันสัก 3 ชุด

"USBSTOR\DISK&VEN_&PROD_USB_DRIVE&REV_1.12\0189820091507&0"
"USBSTOR\DISK&VEN_KINGSTON&PROD_DT_101_G2&REV_PMAP\001CC0EC350DBBC0370B027E&0"
"USBSTOR\DISK&VEN_&PROD_&REV_1.00\7&15FF80F3&0&__&0"

พิจารณาดังนี้ ... ในการใช้ WMI เพื่ออ่าน Serial Number ของ USB Flash Drive ในแต่ละแถว มักจะแบ่งข้อมูลออกเป็น 3 ชุด (หรือมากกว่าก็ได้) ซึ่งจะคั่นกันด้วยเครื่องหมาย \ โดยรหัส SN (Serial Number) จะอยู่ในชุดทางขวามือสุดท้าย แต่ SN ยังถูกแยกออกจากกันด้วยเครื่องหมาย & อีกที ดังนั้นรหัส SN ที่เราต้องการ จะเป็นรหัสเลขฐาน 16 ที่มีความยาวมากที่สุด ซึ่งจะเป็นคำตอบสุดท้าย ...

วิธีการคิดแบบคลาสสิค ... โดยใช้ตัวอย่าง "USBSTOR\DISK&VEN_&PROD_&REV_1.00\7&15FF80F3&0&__&0"

1. แยกข้อมูลออกจากกันด้วยเครื่องหมาย \ และเลือกเอาชุดข้อมูลทางขวามือสุด มาใช้งานต่อไป (ส่วนอื่นตัดทิ้ง)
จะทำให้ได้ "7&15FF80F3&0&__&0"

2. แยกข้อมูลออกจากกันด้วยเครื่องหมาย & ... หากใช้ Array ก็จะทำให้ได้ผลดังต่อไปนี้
strArr(0) = "7"               '<-- LBound
strArr(1) = "15FF80F3"
strArr(2) = "0"
strArr(3) = "__"
strArr(4) = "0"               '<-- UBound

3. วนลูปเพื่อหาความยาวข้อมูลในแต่ละชุดข้อมูลว่า ชุดไหนที่มีความยาวมากที่สุด อันนั้นนั่นแหละคือคำตอบ ในจุดนี้เองที่คลาสสิคอย่างมาก เพราะมันคือกระบวนการคิดระดับขั้นพื้นฐาน ...


ต้อง Add Reference ... System.Management เข้ามาใช้งานก่อนด้วยครับ

มาดูโค้ดของจริงกันเถอะ ... จะช่วยให้ง่ายต่อการทำความเข้าใจ หากคุณใช้งาน Debugger เป็น ...

1. ' / --------------------------------------------------------------------------------
   
2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
3. ' / eMail : thongkorn@hotmail.com
   
4. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
5. ' / Facebook: http://www.facebook.com/g2gnet (For Thailand only)
   
6. ' / Facebook: http://www.facebook.com/CommonIndy (Worldwide)
   
7. ' / Purpose: Get Serial Number of USB Flash Drive with WMI (Windows Management Instrumentation).
   
8. ' / Microsoft Visual Basic .NET (2010)
   
9. ' /
   
10. ' / This is open source code under @CopyLeft by Thongkorn Tubtimkrob.
    
11. ' / You can modify and/or distribute without to inform the developer.
    
12. ' / --------------------------------------------------------------------------------
    
13. 
    
14. '// Don't forget to Add Reference --> System.Management
    
15. Imports System.Management
    
16. 
    
17. Public Class frmWMISerialUSBFlash
    
18. 
    
19.     Private Sub frmWMISerialUSBFlash_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
20.         Call ReadUsbFlashSerialNo()
    
21.     End Sub
    
22. 
    
23.     ' / --------------------------------------------------------------------------------
    
24.     ' / Procedure to read USB Flash Serial Number (Not Volume) and return value all drives.
    
25.     Private Sub ReadUsbFlashSerialNo()
    
26.         Dim strTemp As String = ""
    
27.         Dim strArr() As String
    
28.         Dim MaxLen As Byte = 0  '<-- หาค่าความยาวสูงสุดของชุดข้อมูล ซึ่งจะเป็น Serial Number
    
29.         Dim idx As Byte = 0         '<-- เป็น Index ของ Array ซึ่งจะเก็บค่าคำตอบ Serial Number
    
30.         '// Start
    
31.         Try
    
32.             '// Windows Query Language หรือ WQL "Win32_DiskDrive"
    
33.             '// เลือกมาเฉพาะ InterfaceType = 'USB'
    
34.             Dim WmiQuery As String = "SELECT * FROM Win32_DiskDrive WHERE InterfaceType = 'USB' "
    
35.             Dim WmiSearcher As New ManagementObjectSearcher(WmiQuery)
    
36. 
    
37.             '// ลูปหา USB Flash Drive ทั้งหมดที่กำลังถูกเสียบคาเครื่อง
    
38.             For Each info As ManagementObject In WmiSearcher.Get()
    
39.                 '// รับค่า USB Storage จากการอ่านของ WMI
    
40.                 ' "USBSTOR\DISK&VEN_&PROD_&REV_1.00\7&15FF80F3&0&__&0"
    
41.                 strTemp = (String.Format("{0}", info("PnPDeviceID")))
    
42.                 '// แยกชุดข้อมูลออกจากกันด้วยเครื่องหมาย \
    
43.                 strArr = strTemp.Split("")
    
44.                 ' strArr(0) = "USBSTOR"
    
45.                 ' strArr(1) = "DISK&VEN_&PROD_&REV_1.00"
    
46.                 ' strArr(2) = "7&15FF80F3&0&__&0"
    
47.                 '// เลือกเอาข้อมูลชุดสุดท้ายที่มี UBound สูงสุด จะได้ "7&15FF80F3&0&__&0" ซึ่งเป็นคำตอบแต่ยังไม่สุดท้าย
    
48.                 strTemp = strArr(UBound(strArr))
    
49. 
    
50.                 strArr = New String() {} ' implicit size, initialized to empty
    
51.                 '// แยก "7&15FF80F3&0&__&0" ด้วยเครื่องหมาย &
    
52.                 strArr = strTemp.Split("&")
    
53.                 ' strArr(0) = "7"               '<-- LBound
    
54.                 ' strArr(1) = "15FF80F3"
    
55.                 ' strArr(2) = "0"
    
56.                 ' strArr(3) = "__"
    
57.                 ' strArr(4) = "0"               '<-- UBound
    
58.                 '// ลูปตามจำนวน Index ของ Array โดยเริ่มจาก LBound = 0 ไปจนสิ้นสุดที่ UBound
    
59.                 '// เพื่อหาช่องเก็บข้อมูลยาวที่สุด
    
60.                 For Count = LBound(strArr) To UBound(strArr)
    
61.                     '// เปรียบเทียบค่าความยาวของข้อมูลในแต่ละ Array
    
62.                     If MaxLen < Len(strArr(Count)) Then
    
63.                         '// เก็บค่า Index ไว้เป็นคำตอบ (ตัวอย่างคือ Index = 1)
    
64.                         idx = Count
    
65.                         '// นำค่าความยาวที่มากกว่ามาเก็บไว้ ก่อนที่วนกลับไปเปรียบเทียบค่าใหม่
    
66.                         MaxLen = Len(strArr(Count))
    
67.                     End If
    
68.                 Next
    
69.                 '// นำคำตอบสุดท้ายมาแสดงผลใน ListBox
    
70.                 ListBox1.Items.Add(strArr(idx))
    
71.             Next
    
72.         Catch err As ManagementException
    
73.             MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
    
74.         End Try
    
75. 
    
76.     End Sub
    
77. End Class

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดต้นฉบับแบบเต็ม VB.NET (2010) ได้ที่นี่ ...

mozza

แจ่มไปเลยคับ ^_^

MrDen

ขอบพะคุณอย่างสูงครับ อาจารย์