Cách tốt nhất để truy vấn không gian đĩa trên máy chủ từ xa

Question

Tôi đang cố gắng giải phóng không gian trống trên máy chủ từ xa bằng cách truy vấn tất cả các ổ đĩa và sau đó lặp cho đến khi tôi tìm thấy ổ đĩa tôi đang tìm kiếm. Có cách nào tốt hơn để làm điều này?

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 

Answer 1

Tại sao không chỉ làm cho truy vấn WMI của bạn chỉ kéo lại nơi tên = 'Y'?

Vì vậy:

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