[VB.NET] การอ่านค่าคุณสมบัติทั้งหมดรวดเดียวของอุปกรณ์คอมพิวเตอร์ด้วย WMI

thongkorn

โค้ดชุดนี้ไม่มีอะไรมาก เกิดจากความขี้เกียจของแอดมินในการใช้ WMI Creator เพื่อจะมาดูรายการคุณสมบัติของอุปกรณ์แต่ละตัว ก็เลยเลือกเอาตัวหลักๆ เช่น Mainboard หรือ Disk Drive มามัดรวมกัน ... หากต้องการจะดูอุปกรณ์อื่นๆ ก็เลือกมาจาก WMI Creator เพิ่มเอาเองล่ะกันครับ

มาดูโค้ดฉบับเต็มกันเถอะ ...

1. ' / --------------------------------------------------------------------------------
   
2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
3. ' / eMail : thongkorn@hotmail.com
   
4. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
5. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand)
   
6. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
7. ' / MORE: http://www.g2gnet.com/webboard
   
8. ' /
   
9. ' / Purpose: Read Information with WMI (Windows Management Instrumental)
   
10. ' / Microsoft Visual Basic .NET (2010)
    
11. ' /
    
12. ' / This is open source code under @Copyleft by Thongkorn Tubtimkrob.
    
13. ' / You can modify and/or distribute without to inform the developer.
    
14. ' / --------------------------------------------------------------------------------
    
15. 
    
16. '// Don't forget add --> Reference --> System.Management
    
17. Imports System.Management
    
18. 
    
19. Public Class frmWMIInformation
    
20. 
    
21.     Private Sub frmWMIInformation_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
22.         '// หากอยากได้ Class อื่นๆ ให้ไปดูจาก WMI Creator ครับ
    
23.         With cmbDevice
    
24.             .Items.Add("Win32_BaseBoard")
    
25.             .Items.Add("Win32_PhysicalMedia")
    
26.             .Items.Add("Win32_NetworkAdapter")
    
27.             .Items.Add("Win32_Processor")
    
28.             .Items.Add("Win32_DiskDrive")
    
29.             .Items.Add("Win32_DiskDrive USB Only")
    
30.             .SelectedIndex = 0
    
31.         End With
    
32.     End Sub
    
33. 
    
34.     Private Sub cmbDevice_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbDevice.SelectedIndexChanged
    
35.         Select Case cmbDevice.SelectedIndex
    
36.             Case 0, 1, 2, 3
    
37.                 Call GetWMIInfo()
    
38.             Case 4, 5
    
39.                 Call GetUsbInfo()
    
40.         End Select
    
41.     End Sub
    
42. 
    
43.     Private Sub GetWMIInfo()
    
44.         '// Initialize ListView Control
    
45.         With lvwData
    
46.             .Clear()
    
47.             .View = View.Details
    
48.             .GridLines = True
    
49.             .FullRowSelect = True
    
50.             .HideSelection = False
    
51.             .MultiSelect = False
    
52.             .Columns.Add("Properties", lvwData.Width \ 2 - 130)
    
53.             .Columns.Add("Values", lvwData.Width \ 2 + 100)
    
54.         End With
    
55.         Dim LV As ListViewItem
    
56.         Try
    
57.             '// Windows Query Language หรือ WQL
    
58.             Dim WmiQuery As String = "SELECT * FROM " & cmbDevice.Text
    
59.             Dim WmiSearcher As New ManagementObjectSearcher(WmiQuery)
    
60.             For Each info As ManagementObject In WmiSearcher.Get()
    
61.                 For Each item As PropertyData In info.Properties()
    
62.                     Try
    
63.                         LV = lvwData.Items.Add("" & item.Name)
    
64.                         LV.SubItems.Add("" & item.Value)
    
65.                     Catch ex As Exception
    
66.                     End Try
    
67.                 Next
    
68.             Next
    
69.         Catch err As ManagementException
    
70.             MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
    
71.         End Try
    
72.     End Sub
    
73. 
    
74.     ' / --------------------------------------------------------------------------------
    
75.     ' / Function to read Usb Flash Information and return value of all drives.
    
76.     Sub GetUsbInfo()
    
77.         ' Initialize ListView Control
    
78.         With lvwData
    
79.             .Clear()
    
80.             .View = View.Details
    
81.             .GridLines = True
    
82.             .FullRowSelect = True
    
83.             .HideSelection = False
    
84.             .MultiSelect = False
    
85.             .Columns.Add("Properties", lvwData.Width \ 2 - 130)
    
86.             .Columns.Add("Values", lvwData.Width \ 2 + 100)
    
87.         End With
    
88.         Dim LV As ListViewItem
    
89.         Try
    
90.             '// Windows Query Language หรือ WQL
    
91.             Dim WmiQuery As String = "SELECT * FROM " & "Win32_DiskDrive"
    
92.             Dim WmiSearcher As New ManagementObjectSearcher(WmiQuery)
    
93.             For Each info As ManagementObject In WmiSearcher.Get()
    
94.                 If cmbDevice.SelectedIndex = 4 Then
    
95.                     '// Get only USB interface type.
    
96.                     If info("InterfaceType") <> "USB" Then
    
97.                         For Each item As PropertyData In info.Properties()
    
98.                             Try
    
99.                                 LV = lvwData.Items.Add("" & item.Name)
    
100.                                 LV.SubItems.Add("" & item.Value)
     
101.                             Catch ex As Exception
     
102.                             End Try
     
103.                         Next
     
104.                     End If
     
105.                 Else
     
106.                     '// Get only USB interface type.
     
107.                     If info("InterfaceType") = "USB" Then
     
108.                         For Each item As PropertyData In info.Properties()
     
109.                             Try
     
110.                                 LV = lvwData.Items.Add("" & item.Name)
     
111.                                 LV.SubItems.Add("" & item.Value)
     
112.                             Catch ex As Exception
     
113.                             End Try
     
114.                         Next
     
115.                     End If
     
116.                 End If
     
117.             Next
     
118.         Catch err As ManagementException
     
119.             MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
     
120.         End Try
     
121.     End Sub
     
122. 
     
123.     Private Sub frmWMIInformation_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
     
124.         Me.Dispose()
     
125.         Application.Exit()
     
126.     End Sub
     
127. 
     
128. End Class

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

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