Imports System.Management
 
    Private Sub GetRemoteDrives(ByRef machineName As String)
 
        Dim pathMachine As New ManagementPath("\\" & machineName & _
          "\root\cimv2")
        Dim scopeRemoteMachine As New ManagementScope(pathMachine)
        Dim queryDrives As New ObjectQuery("SELECT * FROM Win32_LogicalDisk")
 
        Dim searcherDrives As New ManagementObjectSearcher(scopeRemoteMachine, _
          queryDrives)
 
        Dim objectDrives As ManagementObject
 
        For Each objectDrives In searcherDrives.Get
            Debug.WriteLine(objectDrives("Name"))
        Next
 
    End Sub