Пожалуй каждый администратор домена сталкивается с так называемыми «мертвыми душами». Никакой мистики тут нет. Люди устраиваются на работу, увольняются, а отдел кадров обычно не спешит сообщать об этом системному администратору. Также бывает и с неактивными компьютерами. И со временем накапливается куча пользователей, давным давно не не работающих.  Мне понадобилось таких пользователей почистить и я накатал небольшой скрипт:

ON ERROR RESUME NEXT

dim Target

set Target = GetObject(«WinNT://домен/контроллердомена»)

set fso = CreateObject(«Scripting.FileSystemObject»)

set file = fso.OpenTextFile(«test.txt», 8, true)

rem WScript.echo Target.Name & «,» & Target.Class

file.WriteLine(Target.Name & «,» & Target.Class)

Target.Filter = Array(«User»)

for Each C in Target

rem WScript.Echo C.Name&» «&C.LastLogin

if c.accountdisabled = 0 then

file.WriteLine(C.Name & «;» & C.LastLogin )

end if

next

file.WriteBlankLines(1)

file.Close()

WScript.Echo(«Downloading completed!»)

Принцип работы очень простой, в цикле обходит всех пользователей домена полученных фильтром user, берет из него только те которые не заблокированы и выводит в файл дату последнего входа в домен.

Файлик открываем екселем, сортируем по второй колонке и анализируем тех кто давно уже не авторизовывался в домене. При необходимости блокируем их или удаляем.