[vb.net] 하드(HDD) 시리얼 넘버(hard drive serial number) 가지고 오기
하나를하더라도최선을
2019-07-13 08:59:47
31,240
0
0
Dim SN As New ManagementObjectSearcher("root\CIMV2", "SELECT * FROM Win32_DiskDrive")
Dim T As String = "DiskDrive:"
For Each Q As ManagementObject In SN.Get()
Try
T += (Q("SerialNumber").ToString.Trim)
Catch ex As Exception
End Try
Next
T += vbCrLf & "BaseBoard:"
SN = New ManagementObjectSearcher("SELECT * FROM Win32_BaseBoard")
For Each Q As ManagementObject In SN.Get()
Try
T += (Q("SerialNumber").ToString.Trim)
Catch ex As Exception
End Try
Next
T += vbCrLf & "PhysicalMedia:"
SN = New ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMedia")
For Each Q As ManagementObject In SN.Get()
Try
T += (Q("SerialNumber").ToString.Trim)
Catch ex As Exception
End Try
Next