vb.net – 查询远程服务器上磁盘空间的最佳方法

发布时间：2020-12-17 00:06:04 所属栏目：大数据来源：网络整理

导读：我试图通过查询所有驱动器来确定远程服务器上的可用空间,然后循环直到找到我正在寻找的驱动器. 有一个更好的方法吗？ Dim oConn As New ConnectionOptionsDim sNameSpace As String = "mnb-content2rootcimv2"Dim oMS As New ManagementScope(sNameSpace

我试图通过查询所有驱动器来确定远程服务器上的可用空间,然后循环直到找到我正在寻找的驱动器.
有一个更好的方法吗？

Dim oConn As New ConnectionOptions
Dim sNameSpace As String = "mnb-content2rootcimv2"
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

为什么不让你的WMI查询只回到name =’Y’？

所以：

Dim oQuery As System.Management.ObjectQuery = New System.Management.ObjectQuery("select FreeSpace,Name from Win32_LogicalDisk where DriveType=3 AND name='Y'")

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!