Untitled

@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