Поиск всех пользователей в домене AD

Иногда возникает ситуация, когда Вам нужно найти на каком компьютере какой пользователь осуществил вход (для AD), в этой ситуации есть одно несложное решение простой bat файл и утилитка.

Создадим папку в ней расположим следующие файлы: NetUsers.exe.tar

и bat файл со следующим содержанием:

@echo off
set MyDomain=здесь имя Вашего домена
set OUTPUT=result.txt

if «%STDOUT_REDIRECTED%» == «» (
set STDOUT_REDIRECTED=yes
cmd.exe /c %0 %* >%OUTPUT%
exit /b %ERRORLEVEL%
)

net view /DOMAIN:%MyDomain% > comps.txt

rem Переходим на диск с *.bat
%~d0
rem Переходим в директорию с *.bat
cd %~p0
cls

FOR /F «eol=К skip=4 tokens=1 » %%i in (comps.txt) do (
IF /I %%i NEQ %COMPUTERNAME% NetUsers.exe %%i
)

exit

После запуска Вы получите текстовый файл в этой папке с именами пользователей и на каких компьютерах они осуществили вход.

Так же можно по имени компьютера определить какой пользователь осуществил вход на него. Следующий vbs скрипт ответит Вам на этот вопрос:

Computer = InputBox(«Имя компьютера»)

Set objWMIService = GetObject(«winmgmts:» _
& «{impersonationLevel=impersonate}!\\» & Computer & «\root\cimv2»)

Set colComputer = objWMIService.ExecQuery _
(«Select * from Win32_ComputerSystem»)

For Each objComputer in colComputer
Wscript.Echo «Logged-on user: » & objComputer.UserName

Next

Оффтоп: если Вы хотите поменять окна в своей квартире, то не стоит бросаться на первое попавшееся объявление и покупать по низкой цене, в этом деле главное качество и правильный выбор — окна ПВХ будут стоять на страже много лет и пускай они будут качественные.