Listing 1: DiskSpace.vbs

Option Explicit
On Error Resume Next

Dim strComputer
Dim SWBemlocator
Dim objWMIService
Dim colItems
Dim objItem
strComputer = "mycomputer"

Set SWBemlocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = _
  SWBemlocator.ConnectServer(strComputer,"\root\CIMV2")
Set colItems = _
  objwmiservice.ExecQuery("SELECT * FROM Win32_LogicalDisk")
For Each objItem In colItems
  WScript.Echo strComputer & vbTab & objitem.caption & _
  vbTab & objItem.freespace 
Next