CMD/BAT - [решено] нужно что-бы батник считал сколько раз его запускали

Maza Faka · Отправлено: **11:52, 06-06-2009** | #2

max_max_08
Придётся записывать счётчик в файл или в реестр, по другому никак:

Код:

@Echo Off

Set Count=0

If Exist "%WINDIR%\~tmp_count.txt" (
  For /F %%A In ('Type "%WINDIR%\~tmp_count.txt"') Do Set /A Count=%%A+1
)

If "%Count%"=="10" (
  Echo Count limit
  GoTo :EOF
)

Echo ^%Count%>"%WINDIR%\~tmp_count.txt"

::Здесь ваш код

В приведённом примере код будет выполняться 10 раз.

max_max_08 · Отправлено: **12:45, 07-06-2009** | #3

А как сделать счет по дням после первого запуска, и если можно вариант с записью в реестр.

Maza Faka · Отправлено: **16:08, 07-06-2009** | #4

max_max_08

Цитата max_max_08:

сделать счет по дням после первого запуска »

Можно "извратиться" так:

Код:

@Echo Off

Set DayLimit=10

Echo On Error Resume Next>~tmp.vbs
Echo Set WshShell = WScript.CreateObject("WScript.Shell")>>~tmp.vbs
Echo nDate = WshShell.RegRead("HKLM\Software\MyProgram\")>>~tmp.vbs
Echo If nDate = "" Then>>~tmp.vbs
Echo nDate = Now>>~tmp.vbs
Echo WshShell.RegWrite "HKLM\Software\MyProgram\", nDate>>~tmp.vbs
Echo End If>>~tmp.vbs
Echo If DateDiff("d", nDate, Now) ^> %DayLimit% Then WScript.Echo "Limit">>~tmp.vbs

For /F %%A In ('CScript ~tmp.vbs //Nologo') Do If /I "%%A"=="Limit" GoTo :EOF

Del /F /Q ~tmp.vbs>Nul

max_max_08 · Отправлено: **18:10, 07-06-2009** | #5

Ого, спасибо, еще один вопрос, после установки моей программы в реестре появляется ветка с информацией о том куда она была установлена, нужно чтобы батник скопировал в эту папку файл install.exe и запустил его.

Maza Faka · Отправлено: **09:55, 08-06-2009** | #6

max_max_08

Цитата:

нужно чтобы батник скопировал в эту папку файл install.exe и запустил его.[/q]

Код:

@Echo Off

Set RegKey=HKLM\Software\MyProgram

For /F "Tokens=3,*" %%A In ('Reg Query %RegKey% /V Path ^| Find /I "Path"') Do Set ProgramDir=%%A %%B

If Exist "%ProgramDir%" Copy /Y install.exe "%ProgramDir%"
Start "" "%ProgramDir%\install.exe"

max_max_08 · Отправлено: **12:45, 08-06-2009** | #7

Мда, ты даже не представляеш как меня выручил, короче, респект.

ofcoss · Отправлено: **13:07, 17-07-2009** | #8

Пишу так, в ответ молчание...

@Echo Off

Set DayLimit=10

Echo On Error Resume Next>~tmp.vbs
Echo Set WshShell = WScript.CreateObject("WScript.Shell")>>~tmp.vbs
Echo nDate = WshShell.RegRead("HKLM\Software\MyProgram\")>>~tmp.vbs
Echo If nDate = "" Then>>~tmp.vbs
Echo nDate = Now>>~tmp.vbs
Echo WshShell.RegWrite "HKLM\Software\MyProgram\", nDate>>~tmp.vbs
Echo End If>>~tmp.vbs
Echo If DateDiff("d", nDate, Now) ^> %DayLimit% Then WScript.Echo "Limit">>~tmp.vbs

For /F %%A In ('CScript ~tmp.vbs //Nologo') Do If /I "%%A"=="Limit" GoTo :EOF

Del /F /Q ~tmp.vbs>Nul
setup.exe /VERYSILENT /SUPPRESSMSGBOXES /NORESTART /SP-

И еще, надо что бы батник записывал не в реестр , а в тхт файл, который находиться в запароленном архиве на съемной флехи, у кого есть скрипт поделитесь плиз

max_max_08 · Отправлено: **18:23, 17-07-2009** | #9

Чет я не пойму, че делают твои строки начиная с сетап.ехе. И что должен делать весь батник?

ofcoss · Отправлено: **23:26, 17-07-2009** | #10

Как сделать что бы после 10 дней при запуске он удалял файлы из каталога
@Echo Off

Set DayLimit=10

Echo On Error Resume Next>~tmp.vbs
Echo Set WshShell = WScript.CreateObject("WScript.Shell")>>~tmp.vbs
Echo nDate = WshShell.RegRead("HKLM\Software\MyProgram\")>>~tmp.vbs
Echo If nDate = "" Then>>~tmp.vbs
Echo nDate = Now>>~tmp.vbs
Echo WshShell.RegWrite "HKLM\Software\MyProgram\", nDate>>~tmp.vbs
Echo End If>>~tmp.vbs
Echo If DateDiff("d", nDate, Now) ^> %DayLimit% Then WScript.Echo "Limit">>~tmp.vbs

For /F %%A In ('CScript ~tmp.vbs //Nologo') Do If /I "%%A"=="Limit" GoTo :EOF

Del /F /Q ~tmp.vbs>Nul