[VB.NET] แสดงรายละเอียดชิ้นส่วนของคอมพิวเตอร์ด้วย WMI

thongkorn

สำหรับโค้ดชุดนี้ก็จะเป็นการเรียกใช้งาน WMI (Windows Management Instrumenation) ซึ่งแอดมินได้เคยอธิบายไว้หลายครั้งแล้ว ขอสรุปให้ฟังอีกที คือการอ่านค่าคุณสมบัติทั้งฮาร์ดแวร์และซอฟท์แวร์ต่างๆบนระบบปฏิบัติการ Windows โดยบทความนี้เราจะอ่านค่าจากการเขียนด้วยโค้ด VB.NET สายงาน IT Support สามารถนำไปใช้งานในเรื่องของ Asset Inventory หรือการจัดเก็บข้อมูลวัสดุอุปกรณ์ ครุภัณฑ์ของสำนักงาน เป็นต้น ...

ต้องเรียกใช้งาน System Management (.NET) ...


หากต้องการส่งข้อมูลออกไปยัง Excel ต้องเรียกใช้ COM (Component Object Model) ...


ตัดให้เหลือเฉพาะ Reference ที่ต้องใช้งาน ...


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

1. Imports System.Management
   
2. Imports Excel = Microsoft.Office.Interop.Excel
   
3. 
   
4. Public Class frmListComputerPart
   
5. 
   
6.     Private Sub frmListComputerPart_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   
7.         ' Initialize ListView Control
   
8.         With ListView1
   
9.             .View = View.Details
   
10.             .GridLines = True
    
11.             .FullRowSelect = True
    
12.             .HideSelection = False
    
13.             .MultiSelect = False
    
14.             .Columns.Add("Part name", ListView1.Width \ 2 - 50)
    
15.             .Columns.Add("Description", ListView1.Width \ 2 + 20)
    
16.         End With
    
17.         Dim LV As ListViewItem
    
18.         Dim i As Integer
    
19.         Dim strComputer As String = "."
    
20.         ' Processor
    
21.         Dim Searcher As New ManagementObjectSearcher( _
    
22.                             "root\CIMV2", _
    
23.                             "SELECT * FROM Win32_Processor")
    
24.         For Each QueryObj As ManagementObject In Searcher.Get()
    
25.             LV = ListView1.Items.Add("System Name")
    
26.             LV.SubItems.Add(QueryObj("SystemName"))
    
27.             LV = ListView1.Items.Add("CPU Name")
    
28.             LV.SubItems.Add(QueryObj("Name"))
    
29.             LV = ListView1.Items.Add("Processor ID")
    
30.             LV.SubItems.Add(QueryObj("ProcessorID"))
    
31.         Next
    
32.         ' BaseBoard
    
33.         Searcher = New ManagementObjectSearcher( _
    
34.                             "root\CIMV2", _
    
35.                             "SELECT * FROM Win32_BaseBoard")
    
36.         For Each QueryObj As ManagementObject In Searcher.Get()
    
37.             LV = ListView1.Items.Add("MainBoard Manufacturer")
    
38.             LV.SubItems.Add(QueryObj("Manufacturer"))
    
39.             LV = ListView1.Items.Add("MainBoard Serial Number")
    
40.             LV.SubItems.Add(QueryObj("SerialNumber"))
    
41.             LV = ListView1.Items.Add("MainBoard Product Name")
    
42.             LV.SubItems.Add(QueryObj("Product"))
    
43.         Next
    
44.         ' Hard Disk Drive use PhysicalMedia Class
    
45.         Searcher = New ManagementObjectSearcher( _
    
46.                             "root\CIMV2",
    
47.                             "SELECT * FROM Win32_PhysicalMedia")
    
48.         i = 1
    
49.         For Each QueryObj As ManagementObject In Searcher.Get()
    
50.             If InStr(QueryObj("Tag"), "CDROM") = 0 Then
    
51.                 LV = ListView1.Items.Add("Hard Disk Serial Number (" & i & ")")
    
52.                 LV.SubItems.Add(Trim(QueryObj("SerialNumber")))
    
53.                 i = i + 1
    
54.             End If
    
55.         Next
    
56.         ' CD/DVD
    
57.         Searcher = New ManagementObjectSearcher( _
    
58.                             "root\CIMV2",
    
59.                             "SELECT * FROM Win32_CDROMDrive")
    
60.         i = 1
    
61.         For Each QueryObj As ManagementObject In Searcher.Get()
    
62.             LV = ListView1.Items.Add("CD/DVD Manufacturer (" & i & ")")
    
63.             LV.SubItems.Add(Trim(QueryObj("Name")))
    
64.             LV = ListView1.Items.Add("CD/DVD Serial Number (" & i & ")")
    
65.             LV.SubItems.Add(Trim(QueryObj("SerialNumber")))
    
66.             i = i + 1
    
67.         Next
    
68.         ' Memory
    
69.         Searcher = New ManagementObjectSearcher( _
    
70.                             "root\CIMV2",
    
71.                             "SELECT * FROM Win32_PhysicalMemory")
    
72.         i = 1
    
73.         For Each QueryObj As ManagementObject In Searcher.Get()
    
74.             LV = ListView1.Items.Add("Memory (" & i & ")")
    
75.             LV.SubItems.Add(Trim(QueryObj("Manufacturer")) & "/" & Trim(QueryObj("SerialNumber")))
    
76.             i = i + 1
    
77.         Next
    
78.         ' Network adapter
    
79.         Searcher = New ManagementObjectSearcher( _
    
80.                             "root\CIMV2", _
    
81.                             "SELECT * FROM Win32_NetworkAdapter")
    
82.         For Each QueryObj As ManagementObject In Searcher.Get()
    
83.             If Not String.IsNullOrEmpty(QueryObj("MACAddress")) And Microsoft.VisualBasic.Left(QueryObj("MACAddress"), 2) <> "00" Then
    
84.                 LV = ListView1.Items.Add("MAC Address")
    
85.                 LV.SubItems.Add(QueryObj("MACAddress"))
    
86.                 LV = ListView1.Items.Add("Network Card Manufacturer")
    
87.                 LV.SubItems.Add(QueryObj("Manufacturer"))
    
88.                 LV = ListView1.Items.Add("Network Product Name")
    
89.                 LV.SubItems.Add(QueryObj("ProductName"))
    
90.             End If
    
91.         Next
    
92.     End Sub
    
93. 
    
94.     '// Export to Excel.
    
95.     Private Sub btnExportExcel_Click(sender As System.Object, e As System.EventArgs) Handles btnExportExcel.Click
    
96.         Dim xlApp As Excel.Application = New Excel.Application
    
97.         Dim xlWorkBook As Excel.Workbook = xlApp.Workbooks.Add
    
98.         Dim xlWorkSheet As Excel.Worksheet = xlWorkBook.ActiveSheet
    
99.         ' Read data in ListView control and sending them to Excel Sheet.
    
100.         For i As Integer = 0 To ListView1.Items.Count - 1
     
101.             xlApp.Cells(i + 1, 1) = ListView1.Items(i).Text     ' First column
     
102.             xlApp.Cells(i + 1, 2) = ListView1.Items(i).SubItems(1).Text ' Second column
     
103.         Next
     
104.         ' Adjust autofit columns
     
105.         xlWorkSheet.Columns.AutoFit()
     
106.         ' Open Excel
     
107.         xlApp.Visible = True
     
108.     End Sub
     
109. 
     
110.     Private Sub frmListComputerPart_Resize(sender As Object, e As System.EventArgs) Handles Me.Resize
     
111.         ' Resize ListView Control.
     
112.         If ListView1.Columns.Count > 0 Then
     
113.             With ListView1
     
114.                 .Columns(0).Width = ListView1.Width \ 2 - 50
     
115.                 .Columns(1).Width = ListView1.Width \ 2 + 20
     
116.             End With
     
117.         End If
     
118.     End Sub
     
119. 
     
120.     Private Sub frmListComputerPart_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
     
121.         Me.Dispose()
     
122.         GC.SuppressFinalize(Me)
     
123.         Application.Exit()
     
124.     End Sub
     
125. 
     
126. End Class

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

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

g2gsoftuser

ขอบคุณครับ