Есть такая байда:
Function Main()

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objDrive = objFSO.GetDrive("C")
FreeSpace = objDrive.FreeSpace
capacity = objDrive.TotalSize
Set fso = CreateObject("Scripting.FileSystemObject")
Set fldr = fso.GetFolder("\\replt\D$\backdn")
capacity1 = fldr.Size
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Dim fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("\\anton\c$\xxx.txt", 8, -2)
Dim Today
Today = Date
f.Writeline (Today&" "&freespace&" "&capacity1 )
f.Close

IF (FreeSpace-capacity1<=1000000000000000000000000) Then
Set fs2 = CreateObject("Scripting.FileSystemObject")
Set b = fs2.CreateTextFile("\\anton\c$\sendmail\_job.txt", True)
b.Writeline("xxx@xxx.ru.txt")
b.close
Set fs3 = CreateObject("Scripting.FileSystemObject")
Set c = fs3.CreateTextFile("\\anton\c$\sendmail\xxx@rtsnet.ru.txt", True)
c.Writeline("hhh ")
c.close
End if
Main = DTSTaskExecResult_Success
End Function
Я ее запускаю в Job , ответ "скрипт уничтожает не все объекты, которые открывает", никто , случайно не знает в чем тут дело