Форум программистов, компьютерный форум, киберфорум
Администрирование Windows
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.52/75: Рейтинг темы: голосов - 75, средняя оценка - 4.52
1 / 1 / 2
Регистрация: 17.06.2012
Сообщений: 36
1

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

20.08.2012, 20:10. Просмотров 14917. Ответов 4
Метки нет (Все метки)

Здраствуйте.
Помогите разобраться с такой ситуацией. Есть удаленный сервак, на котором "хранятся" учетки локальной сети на предприятии. Необходимо получить полный список этих учеток.
Если делать вручную, как на скриншотах, то получается без проблем, ну разве что нужно войти под своей учеткой.
Задача заключается в том, чтобы вытащить этот список программно и желательно полностью, с нужными данными к учеткам (описание, фио и т.д.).
Пробовал через "wmis", получаю только часть учеток, но не все.

Вопрос, для которого я создал тему: Как называется служба или библиотека WinXP, которая получает учетки и показана на скриншотах? Как и каким образом ее вызвать?

Заранее спасибо.

На одном из скриншотов показано как вызвать интересующий сабж через свойства папки)
0
Миниатюры
Получить список всех учетных записей с домена   Получить список всех учетных записей с домена  
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.08.2012, 20:10
Ответы с готовыми решениями:

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

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

Как получить список учетных записей в Win XP
Приветствую всех. Есть замечательная команда net user, после выполнения которой мне будет выведен...

Получить список учетных записей MS Active Directory
Доброе утро, подскажите пожалуйста, если кто в курсе, какие нибудь winAPI функции или напрямую...

4
Почетный модератор
Эксперт по компьютерным сетямЭксперт Windows
28017 / 15744 / 972
Регистрация: 15.09.2009
Сообщений: 67,776
Записей в блоге: 78
20.08.2012, 20:27 2
ну вообще для экспорта учеток из АД написано тонна скриптов VBS/WSH
сервак то на чем?
0
1 / 1 / 2
Регистрация: 17.06.2012
Сообщений: 36
21.08.2012, 04:39  [ТС] 3
server 2003.
можно пример скрипта?)
0
Почетный модератор
Эксперт по компьютерным сетямЭксперт Windows
28017 / 15744 / 972
Регистрация: 15.09.2009
Сообщений: 67,776
Записей в блоге: 78
21.08.2012, 08:30 4
Cписок пользователей из active directory да хоть так...
Цитата Сообщение от Andy_user
'On error Resume Next
strComputer = "PDC" ' Имя доменного контроллера
Set file_object = CreateObject("Scripting.FileSystemObject")
Set list = file_object.CreateTextFile("./Rezult.txt")
'--- Подключаемся ---
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
'--- Получаем коллекцию объектов класса Win32_Account ---
Set colAcc = objWMIService.ExecQuery ("Select * from Win32_Account where SIDType = 1")
WScript.Echo "Обнаружено " & colAcc.Count & " acc."
For Each ttt in colAcc
list.Write ttt.Name & "!" &ttt.FullName & "!" & ttt.Description & vbCrLf
Next
list.Close
' Из файла Rezult.txt данные можно импортировать в Access, используя разделитель "!"
1
1 / 1 / 2
Регистрация: 17.06.2012
Сообщений: 36
21.08.2012, 11:58  [ТС] 5
wmic USERACCOUNT GET NAME >c:/userdomain.txt
в первом сообщении то же самое что вы имели ввиду)) я отталкивался от этого варианта) единственное что меня в нем не устраивало, это то что не удавалось выбрать другой источник (поддомен), точнее что не позволяли ограничения доступа.

очень неплохой вариант:
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Option Explicit
Const ADS_SCOPE_SUBTREE = 2
Const ForAppending = 8
Const ForWriting = 2
Dim objConn
Dim objCommand
Dim objRS
Dim objUser
Dim objFso, objF
Dim str
Dim i
Set objConn = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
Set objFso = CreateObject("Scripting.FileSystemObject")
objConn.Provider = "ADsDSOObject"
objConn.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConn
objCommand.CommandText = "Select * from 'LDAP://otd.dto.ru' Where objectClass='user'" /*



		




	
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.08.2012, 11:58

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Как получить список всех компьютеров из определенного подразделения домена
Всем привет! не подскажите как получить список всех компьютеров из определенного подразделения...

Список учетных записей Win7
Подскажите как получить сий список. Пытался работать с реестром...

Список учётных записей появляется на 2 дисплее а не на первом
После 10 минут мониторы уходят в сон и как я их пробуждаю загорается только 2 монитор со списком...

Чтобы программа работала для всех учетных записей
Итак, друзья, задача такова. Дано: УЧЕТНАЯ ЗАПИСЬ1, УЧЕТНАЯ ЗАПИСЬ2, ПРОГРАММА1 Нужно: 1. при...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.