главная    •     Новости      •     софт      •     RSS-ленты     •     реклама      •     PDA-Версия      •    Контакты
Windows XP    •      Windows 7     •    Windows 8    •    Windows 9-10-11     •    Windows Server     •    Железо
Советы      •     Администрирование      •     Сеть      •     Безопасность      •     Статьи      •     Материалы
Реклама на сайте
Книга жалоб и предложений
Правила на сайте
О Winblog.ru и о копирайте
Написать в редакцию
Конфиденциальность
                       
  • Microsoft Edge - еще более безопасный!
  • ActiveCloud - надежный провайдер облачных услуг для вашей компании
  • ANYSERVER - ваш поставщик б/у серверов из Европы
  • Настройка контекстной рекламы в Yandex и Google: Эффективный путь к росту вашего бизнеса
  • Коммутаторы с функцией PoE: Обеспечение эффективной передачи данных и питания
  • Очередное обновление сломало выключатель компьютеров на Windows 11


  • Листинг 3. GetUniqueSessionsIDsWithNames.bat

    :: НАЧАЛО БЛОКА A
    Set PSUtilLoc=\\server5\PsTools
    Set JWUtilLoc=\\server5\JoeWareTools
    :: КОНЕЦ БЛОКА A
    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%-UserlogWName.tsv" Goto :Next
    Echo _User Domain\IDs_        Full Name        Description
    >>"%dirloc%\Logs\%server%-UserlogWName.tsv"

    :Next
    For /F "tokens=1,2,3,*" %%i in ('%PSUtilLoc%\psloggedon.exe
    \\%server% ^| Find "/" ^| Find /I /V "%server%"')
    Do (Set User=%%l) & (Call :GetInfo)
    Move "%dirloc%\Logs\%server%-UserlogWName.tsv"
    "%dirloc%\Logs\%server%-UserlogWNameTemp.tsv"
    Sort "%dirloc%\Logs\%server%-UserlogWNameTemp.tsv"
    > "%dirloc%\Logs\%server%-UserlogWNameTempSorted.tsv"
    For /F "tokens=* usebackq" %%i in
    ("%dirloc%\Logs\%server%-UserlogWNameTempSorted.tsv")
    Do (Set line=%%i) & (Call :Filter)
    If Exist "%dirloc%\Logs\%server%-UserlogWNameTemp.tsv"
    Del "%dirloc%\Logs\%server%-UserlogWNameTemp.tsv"
    If Exist "%dirloc%\Logs\%server%-UserlogWNameTempSorted.tsv"
    Del "%dirloc%\Logs\%server%-UserlogWNameTempSorted.tsv"
    Goto :EOF

    :Filter
    If /I "%line%"=="%prevline%" Goto :Skip
    Echo %line%>>"%dirloc%\Logs\%server%-UserlogWName.tsv"
    Set prevline=%line%

    :Skip
    Goto :EOF

    :GetInfo
    Set FullName=N/A
    Set Desc=N/A
    :: НАЧАЛО БЛОКА B
    For /F "tokens=1,2,*" %%i in ('%JWUtilLoc%\GetUserInfo.exe
    "%User%" ^| Findstr /I /C:"Full Name"') Do Set FullName=%%k
    For /F "tokens=1,*" %%i in ('%JWUtilLoc%\GetUserInfo.exe
    "%User%" ^| Findstr /I /C:"Description"') Do Set Desc=%%j
    :: КОНЕЦ БЛОКА B
    Echo %User%        %FullName%        %Desc%
    >>"%dirloc%\Logs\%server%-UserlogWName.tsv"
    Goto :EOF



    Оцените статью: Голосов

    Материалы по теме:
  • Установка IIS 7.0
  • Ищем пустую группу в Active Directory.
  • Ещё один способ определить принтер, который будет считается основным
  • Удаленно включаем службу Remote Desktop на Windows Server 2003
  • Пограничные транспортные серверы Exchange в корпорации Майкрософт



  • Для отправки комментария, обязательно ответьте на вопрос

    Вопрос:
    Сколько будет пятнадцать минус пять?
    Ответ:*




    ВЕРСИЯ ДЛЯ PDA      СДЕЛАТЬ СТАРТОВОЙ    НАПИШИТЕ НАМ    МАТЕРИАЛЫ    ОТ ПАРТНЁРОВ

    Copyright © 2006-2022 Winblog.ru All rights reserved.
    Права на статьи принадлежат их авторам. Копирование и использование материалов разрешается только в случае указания явной гиперссылки на веб-сайт winblog.ru, как на источник получения информации.
    Сайт для посетителей возрастом 18+