Сетевые подключения пользователей.

Set PSUtilLoc=\\server5\PsTools
For /F "tokens=1,2,*" %%i in ('Dir %0 ^| Find "Directory"')
Do Set dirloc=%%k
If Not Exist "%dirloc%\Logs" Mkdir "%dirloc%\Logs"
For /F "tokens=1,*" %%i in ("%date%") Do Set daterev=%%j
For /F "tokens=1,2,3 delims=: " %%i in ("%time%")
Do Set timerev=%%i:%%j
For /F "tokens=1,2,3 usebackq" %%i in ("%dirloc%\Servers.txt")
Do (Set server=%%i) & (Call :Testem)
Echo Run complete
Goto :EOF

:Testem
If Exist "%dirloc%\Logs\%server%-Sessionlog.tsv" Goto :Next
Echo Date        Time        Sessions
>>"%dirloc%\Logs\%server%-Sessionlog.tsv"

:Next
Set Sessions=0
:: НАЧАЛО БЛОКА A
For /F "tokens=*" %%i in ('%PSUtilLoc%\psloggedon.exe
\\%server% ^| Find "/" ^| Find /I /V "%server%"')
Do Set /A Sessions+=1
:: КОНЕЦ БЛОКА A

Echo %daterev%        %timerev%        %Sessions%
>>"%dirloc%\Logs\%server%-Sessionlog.tsv"
Goto :EOF