var objFSO      = WScript.CreateObject("Scripting.FileSystemObject");
var objDrive    = objFSO.GetDrive("c");
var iFree       = objDrive.FreeSpace;
var objFolder   = objFSO.GetFolder("c:\\");
var objEnum     = new Enumerator(objFolder.SubFolders);
var iCount      = 0;
var s           = Line(Line("System Information:"));
var sSubFolders = Line("Subfolders:");

for ( ; !objEnum.atEnd(); objEnum.moveNext())
{
   sSubFolders += Line("\t" + objEnum.item().Name);
}

s += Line("Free space on drive C: " + iFree + " bytes");
s += Line("File system on drive C: " + objDrive.FileSystem);
s += Line("Drive C: contains " + objFolder.SubFolders.Count + 
          " subfolders");
s += Line(sSubFolders);

WScript.Echo(s);

function Line(str)
{
   return str + "\n";
}