Hardware [vb.net] 하드(HDD) 시리얼 넘버(hard drive serial number) 가지고 오기
페이지 정보
본문
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
댓글목록
등록된 댓글이 없습니다.