Creat0R, Спасибо огромное (правда ещё не проверял, но верю). Пока ты мне помогал, то я написал одну прогу-может кому-то и пригодится... Суть вот в чём... Я Админ и у меня все работают в 1С, но есть удалённая точка которую нужно тоже контролировать (когда на работу пришёл, когда ушёл...), инет не всегда есть-поэтому можно отмазаться тому человеку. Каждый день я с ним обмениваюсь папкой для 1С ну и решил запустить такую прогу, которая будет сама стартовать и делать мне отчёт...
читать дальше »
Local $Den = @MDAY
Local $Mesyac = @MON
Local $God = @YEAR
Local $4as = @HOUR
Local $Minute = @MIN
Global $1C="1cv7.exe"
IniWrite ( @HomeDrive & "\Пакет\Time.ini", "Запуск компа ", "Включение " & $Den & "." & $Mesyac & "." & $God , " " & $4as & "." & $Minute)
FileSetAttrib ( @HomeDrive & "\Пакет\Time.ini","+H" )
For $i = 1 To 1000
If ProcessWait ($1C) Then
Local $Den1 = @MDAY
Local $Mesyac1 = @MON
Local $God1 = @YEAR
Local $4as1 = @HOUR
Local $Minute1 = @MIN
IniWrite ( @HomeDrive & "\Пакет\Time.ini", "1C", "Запуск программы 1С " & $i & " " & $Den1 & "." & $Mesyac1 & "." & $God1 , " " & $4as1 & "." & $Minute1)
ProcessWaitClose ($1C)
Local $Den2 = @MDAY
Local $Mesyac2 = @MON
Local $God2 = @YEAR
Local $4as2 = @HOUR
Local $Minute2 = @MIN
IniWrite ( @HomeDrive & "\Пакет\Time.ini", "1C", "Выход с программы 1С " & $i & " " & $Den2 & "." & $Mesyac2 & "." & $God2 , " " & $4as2 & "." & $Minute2)
EndIf
Next
