Hi,
Add a reference to system.management
Dim moReturn As Management.ManagementObjectCollection
Dim moSearch As Management.ManagementObjectSearcher
Dim mo As Management.ManagementObject
moSearch = New Management.ManagementObjectSearcher("Select * from
Win32_LogicalDisk")
moReturn = moSearch.Get
For Each mo In moReturn
Dim VolumeName As String = mo("Name")
Dim SerialNumber As String = mo("Volumeserialnumber")
Dim strOut As String = String.Format("{0} - {1}", VolumeName, SerialNumber)
Debug.WriteLine(strOut)
Next
Ken
