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

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

Определение имени компьютера в сети

Взято из программы 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

Имя одного компъютера- не проблема. Суть то в том, что надо получить список учетных записей домена.

>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 - смотрите пост АлексейК днями для пинга.