[VB6/VB.NET] ค้นหา Harddisk ที่ติดตั้ง Windows พร้อมกับอ่านค่า Physical Serial Number ด้วย WMI

thongkorn

WMI หรือ Windows Management Instrumentation แอดมินได้กล่าวไปถึงหลายรอบแล้ว ก็จะสรุปให้ฟังอีกทีล่ะกันครับ WMI เป็นการดำเนินการกับรีจิสทรีในระบบไฟล์ ทั้งการค้นหา การกำหนดค่าฮาร์ดแวร์และการจัดการตั้งค่าของ Windows เอง โดยมี Namespace หลักคือ "root\cimv2" ประกอบด้วย Class ที่สามารถเรียกใช้งานได้มากกว่า 500 Class โดยมีหมวดหมู่หลักๆดังนี้คือ ...

• Computer system hardware
• Operating System
• Installed Applications
• Internal WMI Service settings
• Performance Counter
• Helper Classes
  

ดาวน์โหลด WMI Code Creator v1.0 ...

กรณีที่เครื่องคอมพิวเตอร์ทำการติดตั้งฮาร์ดดิสต์เอาไว้หลายลูก โค้ดชุดนี้เป็นการใช้ WMI ในการทดสอบว่าฮาร์ดดิสต์ลูกไหนเป็นตัว Boot ระบบปฏิบัติการ Windows จากนั้นก็จะทำการค้นหา Physical Serial Number ซึ่งค่านี้จะไม่มีการเปลี่ยนแปลงได้เลย ซึ่งตัวแอดมินนำไปใช้ในการล็อคโปรแกรมของตัวเองนั่นเอง (แต่ต้องมีการเข้ารหัสอีกทีน่ะครับ) ...

มาดูโค้ดสำหรับ VB6 ...

1. Private Function GetBootDiskSerial() As String
   
2.     Dim SerialHDD As String
   
3.     Dim OSName As String
   
4.     Dim strComputer As String
   
5.     '//
   
6.     Dim oWMI As Object
   
7.     Dim objItem As Object
   
8.     Dim colItems As Object
   
9.    
   
10.     strComputer = "."
    
11.     Set oWMI = GetObject("winmgmts:\" & strComputer & "\root\CIMV2")
    
12.     '// ค้นหา Windows OS  และ Hard Disk ลูกที่บู๊ตระบบ
    
13.     Set colItems = oWMI.ExecQuery("SELECT * FROM Win32_OperatingSystem", , 48)
    
14.     For Each objItem In colItems
    
15.         '// คำตอบที่ได้
    
16.         '// Microsoft Windows 10 Pro|C:\Windows|\Device\Harddisk0\Partition2
    
17.        OSName = objItem.Name
    
18.     Next
    
19.    
    
20.     '// "Microsoft Windows 10 Pro|C:\Windows|\Device\Harddisk0\Partition2"
    
21.     Dim Pos As Integer
    
22.     '// หาคำว่า Harddisk เมื่อเจอมันจะรีเทิร์นค่าตำแหน่ง H ตัวแรก แต่ให้บวกเพิ่มเข้าไปอีก 8 ตัวอักขระ
    
23.     Pos = InStr(OSName, "Harddisk") + 8
    
24.     '// ชุดข้อมูลที่ต้องการ Harddisk0 ให้เอาตัวเลขที่ต่อจาก Harddisk (คือ 0)
    
25.     Dim HddIndex As Byte
    
26.     '// อ่านค่าตัวเลขหลักสุดท้ายจะได้ 0
    
27.     HddIndex = Mid(OSName, Pos, 1)
    
28.    
    
29.     '// แอดมินลองทดสอบดู Harddisk0 มันเป็นตัวเดียวกับ PHYSICALDRIVE0
    
30.     Dim Hd As String
    
31.     For Each objItem In oWMI.InstancesOf("Win32_PhysicalMedia")
    
32.         ' "\\.\PHYSICALDRIVE0"
    
33.         Hd = "\\.\PHYSICALDRIVE" & HddIndex
    
34.         '// เอา Serial Number ของ PHYSICALDRIVE0
    
35.         If objItem.Tag = Hd Then
    
36.             SerialHDD = objItem.SerialNumber
    
37.             Exit For
    
38.         End If
    
39.     Next
    
40.     GetBootDiskSerial = Replace(Trim(SerialHDD), Chr(0), "")
    
41. End Function

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

การเรียกใช้งาน MsgBox GetBootDiskSerial ...

สำหรับ VB.NET ก่อนทำการเรียกใช้งาน WMI ได้ จะต้อง Reference System.Management เข้ามาก่อนครับ ...


มาดูโค้ดสำหรับ VB.NET ...

1. '// ไปที่ Reference ต้อง Add System.Management เข้ามาด้วย
   
2. Imports System.Management

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

1.     Public Function GetBootDiskSerial() As String
   
2.         Dim Finder As ManagementObjectSearcher = New ManagementObjectSearcher("Select * from Win32_OperatingSystem")
   
3.         Dim Name As String = ""
   
4.         Dim SerialNumber As String = ""
   
5. 
   
6.         For Each OS As ManagementObject In Finder.[Get]()
   
7.             Name = OS("Name").ToString()
   
8.         Next
   
9.         Dim ind As Integer = Name.IndexOf("Harddisk") + 8
   
10.         Dim HardIndex As Integer = Convert.ToInt16(Name.Substring(ind, 1))
    
11.         Finder = New ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive WHERE Index=" & HardIndex)
    
12.         For Each HardDisks As ManagementObject In Finder.[Get]()
    
13.             For Each HardDisk As ManagementObject In HardDisks.GetRelated("Win32_PhysicalMedia")
    
14.                 SerialNumber = HardDisk("SerialNumber").ToString()
    
15.             Next
    
16.         Next
    
17. 
    
18.         Return Trim(SerialNumber).Replace(Chr(0), "")
    
19.     End Function

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

การเรียกใช้งาน MsgBox(GetBootDiskSerial) ...