написал тестовый но переменная рандом не меняется((
Код:
Код: Выделить всё
FOR /L %%a IN (0,1,1000) DO (
set /a random10=%random%/3277
If %random% GTR 50 ( echo true2 %random% >>888.txt ) ELSE ( echo false2 %random% >>999.txt )
)Код: Выделить всё
FOR /L %%a IN (0,1,1000) DO (
set /a random10=%random%/3277
If %random% GTR 50 ( echo true2 %random% >>888.txt ) ELSE ( echo false2 %random% >>999.txt )
)Код: Выделить всё
robocopy "\\dc\distr\ххх" "C:\Program Files (x86)\хххх" /MIR /Z /R:3 /W:10 /LOG:%LogLocationDir%\%NameBat%\%date%_%NameBat%_%computername%_%username%_dd.logКод: Выделить всё
robocopy "\\dom\distr\ххх" "C:\Program Files (x86)\хххх" /E /Z /R:3 /W:10 /LOG:%LogLocationDir%\%NameBat%\%date%_%NameBat%_%computername%_%username%_dd.logКод: Выделить всё
Option Explicit
Randomize Timer
If Int(101 * Rnd()) <= Int(WScript.Arguments.Item(0)) Then
WScript.Quit 0
Else
WScript.Quit 1
End IfКод: Выделить всё
cscript.exe //nologo "Sample.vbs" 50 && robocopy "\\dc\distr\ххх" "C:\Program Files (x86)\хххх" /MIR /Z /R:3 /W:10 /LOG:%LogLocationDir%\%NameBat%\%date%_%NameBat%_%computername%_%username%_dd.log
. Попробую предложить нечто более предсказуемое.Код: Выделить всё
@Echo Off
CLS
Call :IPping "LastIP"
Call :DaySecond "Day2"
If "%LastIP%"=="%Day2%" (
Echo: Запускаем синхренезацию :)
) Else (
Echo Для этого компа "%LastIP%" сегодня "%Day2%" ничего не запускаем
)
GoTo :Eof
:IPping
Set "%~1="
FOR /F "tokens=2 delims=[]" %%b in ('ping -4 -n 1 %ComputerName%') Do If Not "%%a"=="" (set _IP=%%b &GoTo :Continue)
GoTo :Eof
:Continue
Set "_IP=%_IP: =%"
Set "%~1=%_IP:~-1%"
GoTo :Eof
:DaySecond
Set "%~1=%Date:~1,1%
GoTo :Eof