volk1234
29-01-2015, 02:17
Набросал на скорую руку скрипт. Отрабатывает на ура.
При запуске через планировщик задач не работает
в журнале есть одно примечательное сообщение:
Task Scheduler successfully completed task "\reestr criminal" , instance "{82e44cfa-cf99-4f05-a8e6-c797569a77ca}" , action "C:\Windows\SYSTEM32\cmd.exe" with return code 255
Задачу создавал как обычно с повышенными привилегиями и прочими настройками.
Код скрипта:
@Echo off
Set start_time=%TIME:~0,-3%
Set start_time=%start_time::=%
Set start_time=%start_time: =0%
Set start_time=%DATE:~-4%%DATE:~3,2%%DATE:~0,2%_%start_time%
Set start_time=%start_time%_%computername%
Set KBURL=http://www.nalog.gov.by/uploads/documents/27-01-2015.xls
:curl_DETECT
If Not Exist d:\Wkscript\reestr\curl.exe (
Echo.
Echo ______________________________________
Echo Can't find curl.exe file !!!!
Echo Can't donload updates whithout utility cURL. Exiting...
Echo %TIME:~0,-3% *ERROR* Can't find curl.exe file !!!! Can't donload updates whithout utility cURL. Exiting... >>log.txt
Echo.
Exit /B 9
)
Echo cURL Detected ]-]-]-]
Echo %TIME:~0,-3% cURL Detected ]-]-]-] >>log.txt
:KB_download
Rem Proxy detect
Set $X=&Set $R=HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings
For /F "Tokens=1,3" %%i In ('REG Query "%$R%"^|Find "Proxy"') Do Set %%i=%%j
If "%ProxyEnable%"=="0x1" Set $X=-x %ProxyServer%
<Nul Set /P XYZ=Testing Connection...
curl -f -s -I %KBURL% %$X%|Find " 200 OK" >Nul
If ErrorLevel 1 Echo Download ERROR [Not Responding]& Echo %TIME:~0,-3% Download ERROR [Not Responding] >>log.txt& Exit /B 3
For /F "Skip=1 Tokens=1* Delims=: " %%i In (
'curl -f -s -I "%KBURL%" %$X%') Do Set %%i=%%j
Echo.
Echo File Size [%Content-Length% Bytes]
curl -f -# -O "%KBURL%" %$X%
Xcopy *.xls z:\BUH\REESTR\ /C /Q /R /Y
Del *.xls
Exit /B 0
При запуске через планировщик задач не работает
в журнале есть одно примечательное сообщение:
Task Scheduler successfully completed task "\reestr criminal" , instance "{82e44cfa-cf99-4f05-a8e6-c797569a77ca}" , action "C:\Windows\SYSTEM32\cmd.exe" with return code 255
Задачу создавал как обычно с повышенными привилегиями и прочими настройками.
Код скрипта:
@Echo off
Set start_time=%TIME:~0,-3%
Set start_time=%start_time::=%
Set start_time=%start_time: =0%
Set start_time=%DATE:~-4%%DATE:~3,2%%DATE:~0,2%_%start_time%
Set start_time=%start_time%_%computername%
Set KBURL=http://www.nalog.gov.by/uploads/documents/27-01-2015.xls
:curl_DETECT
If Not Exist d:\Wkscript\reestr\curl.exe (
Echo.
Echo ______________________________________
Echo Can't find curl.exe file !!!!
Echo Can't donload updates whithout utility cURL. Exiting...
Echo %TIME:~0,-3% *ERROR* Can't find curl.exe file !!!! Can't donload updates whithout utility cURL. Exiting... >>log.txt
Echo.
Exit /B 9
)
Echo cURL Detected ]-]-]-]
Echo %TIME:~0,-3% cURL Detected ]-]-]-] >>log.txt
:KB_download
Rem Proxy detect
Set $X=&Set $R=HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings
For /F "Tokens=1,3" %%i In ('REG Query "%$R%"^|Find "Proxy"') Do Set %%i=%%j
If "%ProxyEnable%"=="0x1" Set $X=-x %ProxyServer%
<Nul Set /P XYZ=Testing Connection...
curl -f -s -I %KBURL% %$X%|Find " 200 OK" >Nul
If ErrorLevel 1 Echo Download ERROR [Not Responding]& Echo %TIME:~0,-3% Download ERROR [Not Responding] >>log.txt& Exit /B 3
For /F "Skip=1 Tokens=1* Delims=: " %%i In (
'curl -f -s -I "%KBURL%" %$X%') Do Set %%i=%%j
Echo.
Echo File Size [%Content-Length% Bytes]
curl -f -# -O "%KBURL%" %$X%
Xcopy *.xls z:\BUH\REESTR\ /C /Q /R /Y
Del *.xls
Exit /B 0