Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- @Echo Off
- set fp="C:\Users\ArMaTeC\Desktop\ALSERVER\"
- Set _RNDLength=8
- Set _Alphanumeric=ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789
- Set _Str=%_Alphanumeric%987654321
- Set username=logsupload
- Set pass=ujnijnsdijndfijs3
- Set CURRDATE=%TEMP%\CURRDATE.TMP
- Set CURRTIME=%TEMP%\CURRTIME.TMP
- DATE /T > %CURRDATE%
- TIME /T > %CURRTIME%
- Set PARSEARG="eol=; tokens=1,2,3,4* delims=/, "
- For /F %PARSEARG% %%i in (%CURRDATE%) Do SET YYYYMMDD=%%l%%k%%j
- Set PARSEARG="eol=; tokens=1,2,3* delims=:, "
- For /F %PARSEARG% %%i in (%CURRTIME%) Do Set HHMM=%%i%%j%%k
- :_LenLoop
- IF NOT "%_Str:~18%"=="" SET _Str=%_Str:~9%& SET /A _Len+=9& GOTO :_LenLoop
- SET _tmp=%_Str:~9,1%
- SET /A _Len=_Len+_tmp
- Set _count=0
- SET _RndAlphaNum=
- :_loop
- Set /a _count+=1
- SET _RND=%Random%
- Set /A _RND=_RND%%%_Len%
- SET _RndAlphaNum=!_RndAlphaNum!!_Alphanumeric:~%_RND%,1!
- If !_count! lss %_RNDLength% goto _loop
- Set /a count=1
- copy "D:\ArmA 2\net.log" %fp%
- rename net.log "%sn%%YYYYMMDD%_%HHMM%_net%_RndAlphaNum%!count!.log"
- copy "D:\ArmA 3\net.log" %fp%
- rename net.log "%sn%%YYYYMMDD%_%HHMM%_net%_RndAlphaNum%!count!.log"
- copy "C:\Program Files\Bohemia Interactive\ArmA 2\net.log" %fp%
- rename net.log "%sn%%YYYYMMDD%_%HHMM%_net%_RndAlphaNum%!count!.log"
- ServerName.exe
- pause
- exit
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement