참조 추가 Management

Imports System.Management

 

    Public Function hubeenGet(ByVal driveletter As String) As String
        Dim mobjSearcher As New ManagementObjectSearcher("SELECT VolumeSerialNumber FROM Win32_LogicalDisk WHERE Name = '" & driveletter & ":'")
        For Each obj As ManagementObject In mobjSearcher.Get
            Return obj("VolumeSerialNumber")
        Next
        Return -1
    End Function

 

 

MsgBox(hubeenGet("C"))