Не понял, к *.exe установил доступ доменного пользователя (Свойства -> безопасность), от этого же пользователя выполняю job, на компе этого пользователя, Agent стартует от него же , и ничего не выходит ( я че та не так понял наверно?

Я все переделал :
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("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("c:\xxx.txt", 8, -2)
Dim Today
Today = Date
f.Writeline (Today&" "&freespace&" "&capacity1 )
f.Close

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@xxx.ru"
.Subject = "Предупреждение"
.Body = "С меня бутылка " & vbCrLf & vbCrLf
oMsg.send
End With
Set oOutlook = Nothing
Set oMsg = Nothing
End If
Main = DTSTaskExecResult_Success
End Function
Это не работает ( мне кажется все связано с тем, что у меня на компе( он же сервер) стоит The bat и Outlook
по умолчанию The bat, Все сообщения висят в Outbox Outlook , только не спрашивайте почему я несколько раз открыл FSO:) Че можно придумать -то ( есть авозможность все посылать черезThe bat!? или все по-другому надо писать

to Genady : я на exe шник уже забил, но shell пробовал ничего кроме NULL не получил.