Option Explicit

Dim objFSO
Dim strRemoteShare


strRemoteShare = "\\SomeServer\SomeShare"
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

WScript.Echo FormatNumber(objFSO.GetDrive(strRemoteShare).FreeSpace / (1024 * 1024), 2) & " Mb"

Set objFSO = Nothing

WScript.Quit 0

Автор идеи — Slav.