Public Function HDSN() As String
        Dim mos As Management.ManagementObjectSearcher
        Dim moc As Management.ManagementObjectCollection
        Dim mo As Management.ManagementObject
        Dim pd As Management.PropertyData
 
        mos = New Management.ManagementObjectSearcher("SELECT * FROM" & _
          "Win32_LogicalDisk")
        moc = mos.Get()
        For Each mo In mos.Get
            For Each pd In mo.Properties
                If pd.Name = "VolumeSerialNumber" Then
                    Return pd.Value.ToString()
                    moc.Dispose()
                    mos.Dispose()
                   Exit Function
                End If
            Next
        Next
        End Function