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

@sajkee · Регистрация: 17.06.2012

Студворк — интернет-сервис помощи студентам

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

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

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

На одном из скриншотов показано как вызвать интересующий сабж через свойства папки)

magirus · 20.08.2012, 20:27

ну вообще для экспорта учеток из АД написано тонна скриптов VBS/WSH
сервак то на чем?

@sajkee · 21.08.2012, 04:39 **[ТС]**

server 2003.
можно пример скрипта?)

magirus · 21.08.2012, 08:30

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, используя разделитель "!"

@sajkee · Опции темы

wmic USERACCOUNT GET NAME >c:/userdomain.txt
в первом сообщении то же самое что вы имели ввиду)) я отталкивался от этого варианта) единственное что меня в нем не устраивало, это то что не удавалось выбрать другой источник (поддомен), точнее что не позволяли ограничения доступа.

очень неплохой вариант:

PureBasic

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

	21.08.2012, 11:58

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

21.08.2012, 11:58

Помогаю со студенческими работами здесь

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

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

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

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

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

Или воспользуйтесь поиском по форуму:

5

Опции темы

Наверх

@sajkee 1 / 1 / 2 Регистрация: 17.06.2012 Сообщений: 36
		1
	Получить список всех учетных записей с домена 20.08.2012, 20:10. Показов 18658. Ответов 4 Метки нет (Все метки) Здраствуйте. Помогите разобраться с такой ситуацией. Есть удаленный сервак, на котором "хранятся" учетки локальной сети на предприятии. Необходимо получить полный список этих учеток. Если делать вручную, как на скриншотах, то получается без проблем, ну разве что нужно войти под своей учеткой. Задача заключается в том, чтобы вытащить этот список программно и желательно полностью, с нужными данными к учеткам (описание, фио и т.д.). Пробовал через "wmis", получаю только часть учеток, но не все. Вопрос, для которого я создал тему: Как называется служба или библиотека WinXP, которая получает учетки и показана на скриншотах? Как и каким образом ее вызвать? Заранее спасибо. На одном из скриншотов показано как вызвать интересующий сабж через свойства папки) Миниатюры 0

magirus Почетный модератор 28044 / 15777 / 982 Регистрация: 15.09.2009 Сообщений: 67,752 Записей в блоге: 78
	20.08.2012, 20:27	2
	ну вообще для экспорта учеток из АД написано тонна скриптов VBS/WSH сервак то на чем? 0

@sajkee 1 / 1 / 2 Регистрация: 17.06.2012 Сообщений: 36
	21.08.2012, 04:39 [ТС]	3
	server 2003. можно пример скрипта?) 0

magirus Почетный модератор 28044 / 15777 / 982 Регистрация: 15.09.2009 Сообщений: 67,752 Записей в блоге: 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