Пишет сообшение, что скрипт не уничтожает все объекты, которые открыл
Все перепробовал... ошибка такая же и остается, VB это исполняет , пишу то же самое в job(VBScriot) не работает, потерял на этом кучу времени, прошу помощи

function main()
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objDrive = objFSO.GetDrive("C")
FreeSpace = objDrive.FreeSpace
capacity = objDrive.TotalSize

Set objFSO = Nothing
Set objDrive = Nothing

Set fso = CreateObject("Scripting.FileSystemObject")
Set fldr = fso.GetFolder("\\anton\C$\back")
capacity1 = fldr.Size
Set fso = Nothing
Set fldr = Nothing

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*/

function main()

If (FreeSpace - capacity1 < 1000000000000000) Then
Dim oOutlook
Dim oMsg
Dim oRecipient
Dim oAttachment
Set oOutlook = CreateObject("Outlook.Application")
Set oMsg = oOutlook.CreateItem(0)
With oMsg
.Recipients.Add "xxx@xxxx.ru"
.Subject = "Предупреждение"
.Body = "Уважаемые сотрудники xxx предупреждаем Вас о том, сто разница свободного места на диск и размером базы SQL-Bank составила 1 GB" & vbCrLf & vbCrLf
oMsg.send
End With
Set oOutlook = Nothing
Set oMsg = Nothing
End If
End Function

Хорошо, там про main это последствие отладки
и теперь не работает:
Error #14277 th command script Does not destroy all objects thet create

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objDrive = objFSO.GetDrive("C")
FreeSpace = objDrive.FreeSpace
capacity = objDrive.TotalSize
Set objFSO = Nothing
Set objDrive = Nothing

Set fso = CreateObject("Scripting.FileSystemObject")
Set fldr = fso.GetFolder("\\anton\C$\back")
capacity1 = fldr.Size
Set fso = Nothing
Set fldr = Nothing

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)

Set fs = Nothing

Dim Today
Today = Date
f.Writeline (Today&" "&freespace&" "&capacity1 )
f.Close
If (FreeSpace - capacity1 < 100000000) Then
Dim oOutlook
Dim oMsg
Dim oRecipient
Dim oAttachment
Set oOutlook = CreateObject("Outlook.Application")
Set oMsg = oOutlook.CreateItem(0)
With oMsg
.Recipients.Add "xxx@xxxx.ru"
.Subject = "Ïðåäóïðåæäåíèå"
.Body = "Óâàæàåìûå ñîòðóäíèêè xxx ïðåäóïðåæäàåì Âàñ î òîì, ñòî ðàçíèöà ñâîáîäíîãî ìåñòà íà äèñê è ðàçìåðîì áàçû SQL-Bank ñîñòàâèëà 1 GB" & vbCrLf & vbCrLf
oMsg.send
End With
Set oOutlook = Nothing
End If

to jimmers:
Снимаю шляпу, спасибо.... Я бы и сам мог, но как сразу начнешь "лепить"... так ничего не получается :)

И тем неменее Job filed... :(

не работает отправка почты( я разбил на два), стоит Outlook 2000, и не посылает (в зависимости от того под кем стартует SQL SErver Agent , Job то просто зависает(executing step1), то Filed

Да, все проверено, мой комп -тестовый SQL-сервер, не нем и работаю....Там какая то фигня с MAPi32.DLL, я слышал, никто не знает где это можно почитать?

Е еще, пакет дтс, с тем же самым текстом выполняется успешно и посылает. При этом нужно ,чтоб OUTLOOK был открыт.

И еще, рушится OUTLOOK при попытке выполнить job,