[amel27]

gek20080402, пример определения свободного размера HDD на VBS:

Код:

Set oFSO = CreateObject("Scripting.FileSystemObject")

For Each oDrive In oFSO.Drives
   If oDrive.DriveType=2 And oDrive.IsReady Then
      sList = sList &"Free size on "& oDrive.DriveLetter &": "& vbTab & _
      Round(oDrive.FreeSpace/2^30) &"Gb"&vbCrLf
   End If
Next

WScript.Echo sList