ZeVSalt
Я не лупоглазый, это прищур такой !
- Сообщения
- 136
- Репутация
- 0
Здравствуйте господа.
Суть вопроса:
На компьютерах пользователей в автозагрузке, лежит файл LC.exe он проверяет наличие файла RC.exe на сервере и если он есть выполняет его.
В файле RC.exe прописываю разные задачи (сбор отчета, установка программ).
В случае сбора отчетов, при перезагрузке создается строка в файле отчета \\server\Report_programm\(тут папка на каждый день месяца "@DAY @MON @YEAR")\Report.txt.
Вопрос:
Подскажите идейку как сделать, что бы строка создавалась только один раз в день, а не при каждой перезагрузке.
Пример одного из отчетов:
Суть вопроса:
На компьютерах пользователей в автозагрузке, лежит файл LC.exe он проверяет наличие файла RC.exe на сервере и если он есть выполняет его.
В файле RC.exe прописываю разные задачи (сбор отчета, установка программ).
В случае сбора отчетов, при перезагрузке создается строка в файле отчета \\server\Report_programm\(тут папка на каждый день месяца "@DAY @MON @YEAR")\Report.txt.
Вопрос:
Подскажите идейку как сделать, что бы строка создавалась только один раз в день, а не при каждой перезагрузке.
Пример одного из отчетов:
Код:
;~ Проверка установки пакета программ
; Запускаем скрипт с админскими правами
#requireadmin
#include <GUIConstants.au3>
#include <file.au3>
;~ Проверка IP
$IP = @IPAddress1
;~ Проверка имени пользователя
$UserName = @UserName
;~ Проверка имени Компьютера
$ComputerName = @ComputerName
;~ Проверка Касперский
$pKaspx86 = FileExists ("c:\Program Files (x86)\Kaspersky Lab\Kaspersky Endpoint Security 10 for Windows\")
$pKasp = FileExists ("c:\Program Files\Kaspersky Lab\Kaspersky Endpoint Security 10 for Windows\")
If $pKasp Or $pKaspx86 = 1 Then
$Kasper = ("ДА")
Else
$Kasper = ("НЕТ")
EndIf
;~ Проверка КриптоПро
$pKript = FileExists ("c:\Program Files\Crypto Pro\")
$pKriptx86 = FileExists ("c:\Program Files (x86)\Crypto Pro\")
If $pKript Or $pKriptx86 = 1 Then
$Kript = ("ДА")
Else
$Kript = ("НЕТ")
EndIf
;~ Проверка VipNet
$pVip = FileExists ("c:\Program Files\InfoTeCS\ViPNet Client\")
$pVipx86 = FileExists ("c:\Program Files (x86)\InfoTeCS\ViPNet Client\")
If $pVip Or $pVipx86 = 1 Then
$Vip = ("ДА")
Else
$Vip = ("НЕТ")
EndIf
;~ Открытие файла отчета
$oFile = FileOpen ( 'x:\Report_programm\' & @MDAY & ' ' & @MON & ' ' & @YEAR & '\Report.txt' , 9)
;~ Проверka, является ли файл открытым, перед тем как использовать функции чтения/записи в файл
If $oFile = -1 Then
Exit
EndIf
;~ запись в файл
FileWrite($oFile, $IP & @TAB & $UserName & @TAB & $ComputerName & @TAB & 'Касперский ' & $Kasper & @TAB & 'VipNet ' & $Vip & @TAB & 'КриптоПРО ' & $Kript & @CRLF)
;~ закрытие файла
FileClose($oFile)
;~ Открытие файла состояния файла RC
$run_File = FileOpen ( @ScriptDir & "\Run_commands.txt" , 10)
;~ Проверka, является ли файл открытым, перед тем как использовать функции чтения/записи в файл
If $oFile = -1 Then
Exit
EndIf
FileWrite($run_File, "Текущее состояние файла - Проверка установки пакета программ" & @CRLF)
FileClose($run_File)