[megaloman]

p.igor.kin,

...в скрипте сделали проверку на ошибки ... Нельзя ли это убрать? ... если что то не так скрипт просто запустился и молча закрылся. »

Можно, но, ИМХО, не нужно для предметного разбирательства неприятности. Можно закомментировать строку символом ':

Код:

'            LL = WShell.Popup("Обратитесь в техподдержку" + vbCrLf + PrgName + Msg + vbCrLf + CStr(TBeg) + "   " + CStr(TEnd) + "   " + CStr(Time()) + vbCrLf + "Код ошибки " + CStr(Err.Number) + vbCrLf + Err.Description, 6, "Программа не запускается", 16)

Но я бы предложил иное: это сообщение автоматически закрывается, я перестарался, поставил время ожидания 3600 сек (смотрите в конец Вашей строки), лучше поставьте мЕньшее время (в приведенной строке я поставил 6 сек). Для разбирательства в ручном режиме будет полезно.

И ещё я заметил что скрипт постоянно висит в диспетчере задач. Тоесть он постоянно работает. Можно как нибудь сделать что бы после запуска нужной программы скрипт закрывал сам себя. »

Это не совсем так. Скрипт запускает программу, а после этого, если всё благополучно, завершает работу. Исключение: когда есть запрос на ответ (например, сообщение об ошибке) он будет ждать ответа.
А вообще-то, раз пошла такая пьянка, я бы предложил вести лог-файл работы скрипта. И я, наверное, этим озабочусь.

[p.igor.kin]

Уважаемый megaloman а может быть вы подскажете как прикрутить Ваш скрипт что бы он работал при загрузке компьютера а не при входе пользователя в систему. Основная задача стоит в этом. А я с 9 утра бьюсь с этой задачей и ни чего не выходит(

[megaloman]

p.igor.kin, Сделаю лог-файл, попробую прикрутить, без информации о том, что происходит, соваться нечего.

[p.igor.kin]

огромное спасибо будем ждать

[megaloman]

p.igor.kin,

Вот вариант скрипта, при котором его исполнение можно проконтролировать в лог-файле

Код:

ProgStart = Array("C:\Program Files\cpustats\dau\cpustats.exe", "08:00:00", "18:00:00", _
                "C:\Program Files\cpustats\night\cpustats.exe", "20:00:00", "23:59:59", _
                "C:\Program Files\cpustats\night\cpustats.exe", "00:00:00", "06:00:00")
                
'LogFile = WScript.ScriptFullName + ".log"		' Если лог-файл пишется рядом со скриптом с именем скрипта
LogFile = "Z:\яяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяяя.log"  ' Прописать полный путь к лог-файлу
                
Set WShell = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")

Call WriteLogFile(LogFile, "+++", "Скрипт запущен")

N1 = LBound(ProgStart)
N2 = UBound(ProgStart)
NProg = (N2 - N1 + 1) / 3

On Error Resume Next
For i = 1 To NProg
    PrgName = ProgStart(N1 + 3 * (i - 1))
    TBeg = TimeValue(ProgStart(N1 + 1 + 3 * (i - 1)))
    TEnd = TimeValue(ProgStart(N1 + 2 + 3 * (i - 1)))
    On Error Resume Next
    If TBeg <= Time() And Time() <= TEnd Then
        WShell.CurrentDirectory = FSO.GetFile(PrgName).ParentFolder
        LL = WShell.Run("""" + PrgName + """", 7, False)
        ErrMsg = PrgName + " Код ошибки " + CStr(Err.Number) + " " + Err.Description
        If Err.Number <> 0 Then
            Call WriteLogFile(LogFile, "!!!", ErrMsg)
            Msg = ""
            If Not FSO.FileExists(PrgName) Then
                Msg = vbCrLf + "Файл не найден" + vbCrLf
                Call WriteLogFile(LogFile, "???", PrgName + " Файл не найден")
            End If
'            LL = WShell.Popup("Обратитесь в техподдержку" + vbCrLf + PrgName + Msg + vbCrLf + CStr(TBeg) + "   " + CStr(TEnd) + "   " + CStr(Time()) + vbCrLf + "Код ошибки " + CStr(Err.Number) + vbCrLf + Err.Description, 6, "Программа не запускается", 16)
        Else
            Call WriteLogFile(LogFile, "+++", PrgName + " Запущено")
        End If

    End If
Next
On Error GoTo 0
Call WriteLogFile(LogFile, "===", "Скрипт завершается")

Sub WriteLogFile(FName, Pref, Mess)
    Set FSO = CreateObject("Scripting.FileSystemObject")
    On Error Resume Next
    Set FOut = FSO.OpenTextFile(FName, 8, True)
    FOut.WriteLine Pref + " " + CStr(Now()) + " " + Mess
    FOut.Close
'    MsgBox Pref + " " + CStr(Now()) + " " + Mess
    On Error GoTo 0
End Sub

Возможно, лог-файл писаться не будет, если системе не будет хватать прав на запись в указанном месте.
Попробуйте этот скрипт. Посмотрите, создаётся ли лог-файл.
У меня скрипт благополучно прикрутился в назначенные задания при запуске - смотрю по логу скрипта. Но у меня комп не в домене. Если у Вас проблемы - ИМХО, где-то что-то с доступом.
У меня Win 7/32

[p.igor.kin]

У меня компьютер в домене на win 7 x 64

Сделал задание в планировщике как у Вас на скрине. Запуск поставил учетная запись "СИСТЕМА" галка стоит на выполнять вне зависимости от регистрации пользователя
Запустил вручную из планировщика создался фал Log в котором написано

+++ 19.07.2017 8:17:50 Скрипт запущен

Но программа не запустилась. В планировщике стоит статус "это задание выполняется в данное время"
Остановил задание в ручную в логе появилась запись

!!! 19.07.2017 8:20:51 C:\Program Files\cpustats\dau\cpustats.exe Код ошибки -2147023673
=== 19.07.2017 8:20:51 Скрипт завершается

Если я правильно понимаю то это нет доступа.. Но без скрипта все работает. Расскажу как у меня все настроено сейчас может это как то поможет

1) в планировщике создано задание
название: cpustats-dau
триггер: при входе любого пользователя
действия "C:\Program Files\cpustats\dau\cpustats.exe"
При выполнении задания используется учетная запись "СИСТЕМА" галка стоит на выполнять вне зависимости от регистрации пользователя

2) в планировщике создано задание
название: cpustats-night
триггер: Ежедневно в 21:05
действия "C:\Program Files\cpustats\night\cpustats.exe"
При выполнении задания используется учетная запись "СИСТЕМА" галка стоит на выполнять вне зависимости от регистрации пользователя

Вот так у меня сейчас все работает, но если компьютер включается после 21:05 то увы программа уже не запускается, а если он включается до 21 и пользователь входит в систему то запускается "C:\Program Files\cpustats\dau\cpustats.exe" после чего в 21:05 запускается ещё и "C:\Program Files\cpustats\night\cpustats.exe". Собственно по этому и хотелось бы сделать 1 задание со скриптом что бы скрипт сам все делал.

Создал ещё раз задание в планировщике но запустил его от имени учетной записи пользователя домена, а не от "СИСТЕМА"
галка стоит на выполнять вне зависимости от регистрации пользователя

+++ 19.07.2017 8:35:30 Скрипт запущен
+++ 19.07.2017 8:35:31 C:\Program Files\cpustats\dau\cpustats.exe Запущено
=== 19.07.2017 8:35:31 Скрипт завершается

P/s все бы ни чего но когда создаешь задание через GPO запуск от имени пользователя можно указать только "СИСТЕМА" ибо логины и пароли у всех пользователей разные. Да и странно ещё то что сейчас программы запускаются именно от пользователя "СИСТЕМА", а через скрипт не хотят

[megaloman]

p.igor.kin, Итак: Скрипт в задании запускается. Проблема с запуском программы. Попробуем в этом убедиться. Закомментируйте запуск программы, то есть строку:

Код:

'        LL = WShell.Run("""" + PrgName + """", 7, False)

Что в лог-файле при запуске? От чьего имени создано задание на запуск?

[p.igor.kin]

Закомментировал строчку, Задание все так же от имени "СИСТЕМА"

в лог файле
+++ 19.07.2017 8:44:52 Скрипт запущен
+++ 19.07.2017 8:44:52 C:\Program Files\cpustats\dau\cpustats.exe Запущено
=== 19.07.2017 8:44:52 Скрипт завершается

Но на самом деле программа не запустилась!

[megaloman]

p.igor.kin, Естественно, программа не запустилась, коль мы её и не запускали.
Но убедились, что логика скрипта работает верно. У меня нет мыслей, почему не отрабатывает Run, похоже, для запуска программы необходимо ответить на какой-то запрос, который Вы не можете видеть, так как задание запущено от другого пользователя при запуске системы

[p.igor.kin]

У меня нет мыслей, почему не отрабатывает Run »

Печально. думаете придется отказаться от идеи реализовать данную задачу скриптом и оставить все как есть?

P.s запустил задачу от имени Администратора домена domain\администратор

+++ 19.07.2017 8:54:52 Скрипт запущен
!!! 19.07.2017 8:55:07 C:\Program Files\cpustats\dau\cpustats.exe Код ошибки -2147023673
=== 19.07.2017 8:55:07 Скрипт завершается

Очень странно так как данный пользователь обладает правами равносильными пользователю ПК