Как получить список всех пользователей с именами и логинами из Active Ditectory программным путем? На серве около 3000 пользователей руками выдрать все имена и логины не представляется возможным (в смысле по времени), доступ на серве административный.

Здравствуйте Vitamin, Вы писали:

V>Как получить список всех пользователей с именами и логинами из Active Ditectory программным путем? На серве около 3000 пользователей руками выдрать все имена и логины не представляется возможным (в смысле по времени), доступ на серве административный.

    Dim myComputer
    Dim member
    Set myComputer = GetObject("WinNT://yourdomaincontroller,computer")
    myComputer.Filter = Array("user")
    For Each member In myComputer
        Debug.Print member.Name + "    <" + member.FullName + ">"
    Next