La meilleure façon d'interroger l'espace disque sur le serveur distant

Je suis en train de clouer l'espace libre sur un serveur distant en interrogeant tous les lecteurs et ensuite en boucle jusqu'à ce que je trouve le disque je suis à la recherche d'.
Est-il une meilleure façon de le faire?

Dim oConn As New ConnectionOptions
Dim sNameSpace As String = "\\mnb-content2\root\cimv2"
Dim oMS As New ManagementScope(sNameSpace, oConn)

Dim oQuery As System.Management.ObjectQuery = New System.Management.ObjectQuery("select FreeSpace,Size,Name from Win32_LogicalDisk where DriveType=3")
Dim oSearcher As ManagementObjectSearcher = New ManagementObjectSearcher(oMS, oQuery)

Dim oReturnCollection As ManagementObjectCollection = oSearcher.Get()
Dim oReturn As ManagementObject

For Each oReturn In oReturnCollection
    'Disk name
    Console.WriteLine("Name : " + oReturn("Name").ToString())
    'Free Space in bytes
    Dim sFreespace As String = oReturn("FreeSpace").ToString()
    If Left(oReturn("Name").ToString(), 1) = "Y" Then
        Console.WriteLine(sFreespace)
    End If
Next
FWIW, .Style Net Guildlines spécifiquement déconseillons l'utilisation de préfixes comme 'o' et 's'. C'est un changement depuis le VB6 jours.
Si vous voulez l'utiliser Powershell au lieu de VB.NET vous pouvez en trouver un en ligne de réponses à stackoverflow.com/questions/12159341/...
épargnant de vie! merci!!

OriginalL'auteur Jake Hackl | 2008-09-11