icheko
7/9/2014 - 4:09 PM

VBScript write free disk space to file

VBScript write free disk space to file

DAS_free_space.vbs
content_copyfile_download
Const ForAppending = 8

Set objWMIService = GetObject("winmgmts:")
Set objLogicalDisk = objWMIService.Get("Win32_LogicalDisk.DeviceID='s:'")
 
set objFSO = CreateObject("Scripting.FileSystemObject")
set objFile = objFSO.OpenTextFile("c:\DAS_free_space.txt", ForAppending, True)
 
objFile.WriteLine(FormatNumber((CDbl(objLogicalDisk.FreeSpace)/1024/1024/1024)) & ",")
objFile.Close