| Вопрос: Как получить список пользователей в системе? | Добавлено: 26.03.05 20:10 |
Автор вопроса:  DaSharm | Web-сайт: dasharm.com | ICQ: 780477 |
|
Как получить список пользователей в системе?
Юзеров и администраторов. |
| Ответы | Всего ответов: 8 |
|
Номер ответа: 1 Автор ответа:  DaSharm ICQ: 780477 Вопросов: 72 Ответов: 1297 |
Web-сайт: Профиль | | #1 | Добавлено: 26.03.05 20:57 |
|
Конечно, можно посмотреть на папки в Documents and Settings, но, это нехорошо ведь, правда? правда.... |
||
|
Номер ответа: 2 Автор ответа: ZeroX ICQ: 220401330 Вопросов: 47 Ответов: 406 |
Профиль | | #2 | Добавлено: 26.03.05 21:12 |
|
Dim fso As IADsFileServiceOperations
' Bind to a file service operations object on "myComputer" in the local domain. Set fso = GetObject("WinNT://myComputer/LanmanServer" 
' Enumerate resources. If (IsEmpty(fso) = False) Then For Each resource In fso.resources MsgBox "Resource name: " & resource.name MsgBox "Resource path: " & resource.path Next resource End If Cleanup: If (Err.Number<>0) Then MsgBox("An error has occurred. " & Err.Number) End If Set fso = Nothing Взял из MSDN - непроверял |
||
|
Номер ответа: 3 Автор ответа: DaSharmICQ: 780477 Вопросов: 72 Ответов: 1297 |
Web-сайт: Профиль | | #3 | Добавлено: 26.03.05 22:44 |
|
не пашет, пишет Automation error... Что там в референсах нужно подключать? Я подключил Active DS, ещё что-то нужно? |
||
|
Номер ответа: 4 Автор ответа: DaSharmICQ: 780477 Вопросов: 72 Ответов: 1297 |
Web-сайт: Профиль | | #4 | Добавлено: 26.03.05 22:53 |
|
не пашет, пишет Automation error... Что там в референсах нужно подключать? Я подключил Active DS, ещё что-то нужно? |
||
|
Номер ответа: 5 Автор ответа: ZeroXICQ: 220401330 Вопросов: 47 Ответов: 406 |
Профиль | | #5 | Добавлено: 27.03.05 11:29 |
|
подключил Active DS
Тоже подключил - попробовал, таже ошибка. Но ты покопайся в этой библе. |
||
|
Номер ответа: 6 Автор ответа: ZeroXICQ: 220401330 Вопросов: 47 Ответов: 406 |
Профиль | | #6 | Добавлено: 27.03.05 12:01 |
|
Dim fso As IADsGroup
Set fso = GetObject("WinNT://MSHOME/СomputerName/Администраторы"
Dim u As IADsUser For Each u In fso.Members MsgBox u.Name Next Вот код |
||
|
Номер ответа: 7 Автор ответа: DaSharmICQ: 780477 Вопросов: 72 Ответов: 1297 |
Web-сайт: Профиль | | #7 | Добавлено: 27.03.05 13:38 |
|
работает, просто я забыл подставить свои данные:
"WinNT://MSHOME/СomputerName/Администраторы" у меня "WinNT://WORKGROUP/myComp/Администраторы" имя и рабочубю группу можно посмотреть в свойствах "мой компьютер", закладка имя компьютера. Но теперь возникаеит вопрос, как получить рабочую группу и имя компьютера. Имя без проблем, а за рабочей группой нужно будет поискать... |
||
|
Номер ответа: 8 Автор ответа: ZeroXICQ: 220401330 Вопросов: 47 Ответов: 406 |
Профиль | | #8 | Добавлено: 27.03.05 14:08 |
| А ее можно не указывать | ||
Страница: 1 |