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

Dimsonnn
Дата: 02.09.2005 15:38:19
Приветствую. Такая вот проблема возникла.
Надо в комбобокс вывести список учетных записей домена. и получить для выбранного SID. у меня акссес 2002
Badim
Дата: 02.09.2005 16:15:17
Определение имени компьютера в сети

Взято из программы Rules98 - Автор: Грибанов Сергей Юрьевич E-mail prbasic@lcpi.lipetsk.r


Private Declare Function GetComputerNameA Lib "kernel32" (ByVal lpBuffer As String, ByRef nSize As Long) As Long
' Возвращает имя компьютера
Private Function GetComputerName() As String
Const MAX_COMUTERNAME = 99
Dim lpBuffer As String * MAX_COMUTERNAME
Dim lenString As Long

lenString = MAX_COMUTERNAME
Call GetComputerNameA(lpBuffer, lenString)
GetComputerName = Left$(lpBuffer, lenString)
End Function
Dimsonnn
Дата: 02.09.2005 16:57:14
Имя одного компъютера- не проблема. Суть то в том, что надо получить список учетных записей домена.
Shuhard
Дата: 02.09.2005 19:03:36
>C:\Documents and Settings\excadmin>net user /?
The syntax of this command is:
NET USER
[username [password | *] [options]] [/DOMAIN]
username {password | *} /ADD [options] [/DOMAIN]
username [/DELETE] [/DOMAIN]
лобовой способ для рабочей станции вошедшей в домен, запуск через shell
net user /DOMAIN - прием результата в файл и распарсивание оного
модно использовать не shell ,а vbs - смотрите пост АлексейК днями для пинга.