[vb.net] 하드(HDD) 시리얼 넘버(hard drive serial number) 가지고 오기 > vb.net

본문 바로가기

vb.net

[Hardware] [vb.net] 하드(HDD) 시리얼 넘버(hard drive serial number) 가지고 오기

익명
2019-07-13 08:59 1,830 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

댓글목록0

등록된 댓글이 없습니다.
게시판 전체검색