dim fs, drive1, strFreeSpace1, strFreeSpaceRounded1

set fs = CreateObject("Scripting.FileSystemObject")

set drive1 = fs.getDrive("C:")
strTotalSpace1 = drive1.TotalSize/1024/1024/1024
strTotalSpaceRounded1 = mid(strTotalSpace1, 1, 3)

set drive1 = fs.getDrive("C:")
strFreeSpace1 = drive1.FreeSpace/1024/1024/1024
strFreeSpaceRounded1 = mid(strFreeSpace1, 1, 3)

set drive1 = fs.getDrive("C:")
strFreeSpaceProzent1 = strFreeSpaceRounded1 / strTotalSpaceRounded1 * 100
strFreeSpaceProzent1 = mid(strFreeSpaceProzent1, 1, 2)&" %"



scriptname = Wscript.ScriptFullName
scriptpath = fs.getparentfoldername(scriptname)
Set f = fs.GetFolder(scriptpath)
Set file = f.CreateTextFile("drive.txt", True)

file.writeline "your drive has " & strFreeSpaceRounded1 & " Gigabyte" & " of free memory, this is " & strFreeSpaceProzent1 & " of your total memory."