Dim strQuery As String = "select * from win32_logicaldisk where drivetype=5"
Dim Query As New ManagementObjectSearcher(strQuery)
Dim EnumWMI As ManagementObjectCollection = Query.[Get]()
Dim serial as string = EnumWMI(0)("volumeserialnumber")