Imports System.Management 
Module Module1
Sub Main()
'-------------
'und dann
Try
    'sTxt ist der Servername, IP oder FQDN
    If My.Computer.Network.Ping(sTxt, 200) Then       ' wenn der computer 
    ' pingbar ist
 
        ' jetzt die Laufwerke ermitteln
        Dim disk As ManagementObject
 
        Try
            For Each disk In FreeSpaceOnDrives(sTxt).Get()
                Dim lgSize As Long = disk("FreeSpace")
 
 
                    Console.WriteLine("Disk {0} has {1} Bytes left", disk( _
                      "Name"), lgSize)
 
                bErrorDriveAccessDenied = False
            Next
        Catch ex As Exception
            console.writeline(ex.Message)
        End Try
    Else
        console.writeline(ex.Message)  
    End If   
Catch ex As Exception
    console.writeline(ex.Message)
End Try
 
End Sub
 
'hier die Funktion hin
'...
 
End Module1