CodeItBetter Programming Another VB Programming Blog

'System & API - How to determine free disk drive space over network?
Option Explicit
 
Sub Main()
    On Error Resume Next
    strComputer = "computername"
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk", , 48)
    For Each objItem In colItems
        MsgBox objItem.Caption _
             & vbCrLf & objItem.Description _
             & vbCrLf & objItem.ProviderName _
             & vbCrLf & objItem.Size _
             & vbCrLf & objItem.FreeSpace
    Next
End Sub