'(VB 2005 code)
 ' Freien Platz auf Laufwerken ermitteln
    Function FreeSpaceOnDrives(ByVal strServerName As String) As _
      ManagementObjectSearcher
        Dim selectedProperties() As String = {"Name", "FreeSpace"}
        Dim query As New SelectQuery("Win32_LogicalDisk", "DriveType=3", _
          selectedProperties)
        Dim diskSpaceFinder As New ManagementObjectSearcher(query)
 
        diskSpaceFinder.Scope.Path.Server = strServerName
        'diskSpaceFinder.Scope.Options.Username = serverName & "\Administrator"
        'diskSpaceFinder.Scope.Options.Password = "Password1"
 
        'Dim disk As ManagementObject
        'For Each disk In diskSpaceFinder.Get()
        'Console.WriteLine("Disk {0} has {1} MBytes left", disk("Name"), 
        ' Math.Round(disk("FreeSpace") / 1024 / 1024))
        'Next
 
        'Console.ReadLine()
        FreeSpaceOnDrives = diskSpaceFinder
    End Function