set disk = GetObject ("winmgmts:win32_logicaldisk='C:'")
for i = 1 to 100000
WScript.Echo Disk.FreeSpace
disk.Refresh_
next