• 쇼핑몰
  • 커뮤니티
  • 북마크

vb.net




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

하나를하더라도최선을
2019.07.13 08:59 879 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

등록된 댓글이 없습니다.