Re[2]: Программно определить администратора компютера
От: masta-smooky Украина  
Дата: 16.04.07 08:47
Оценка:
Здравствуйте, tyger, Вы писали:

T>Здравствуйте, masta-smooky, Вы писали:


MS>>У меня такой вопрос, не подскажет ли кто как можно посмотреть кто на удаленном компютере находиться в групе локальных администраторов ?

T>Вот это должно натолкнуть тебя на мысл, в каком направлении действовать. Т.е. есть объектная модель (надстройка) над этим MMC (и соответственно ты можешь подключить этот COM-объект в C#), с помощью этой модели вызывай разные остнастки (snap-in), которые, среди прочего, позволяют посмотреть список пользователей и подключится к другому компьютеру и посмотреть это там (поробуй сделать это вручную для начала).

T>http://www.script-coding.info/MMC.html



T>P.S. Отпишись потом, если что получится


Спасибо вам большое tyger, я розобрался в mmc написал программу которая может смотреть какие есть группы на компютере но вот никак немогу посмотреть кто в етих группах состоит. Ведь группа ето уже не node. Как я уже не пробовал их вытянуть, ну никак не получаеться там у node есть проперти Property я думаю что список пользователей через него можно достать но я никак немогу. Так что мож кто знает подскажите пожалуйста. Вот код правда он на VB просто времени небыло на с# переписать я думаю и так понятно:
Sub Main()
Dim objMMC As MMC20.Application
Dim objDoc As MMC20.Document
Dim objSN As MMC20.ScopeNamespace
Dim objRoot As MMC20.Node
Dim objNode As MMC20.Node
Dim objView As MMC20.View
Dim objList As MMC20.Nodes
Dim objItem As MMC20.Node
Dim i As Integer
Dim sName, sFullName, sDescr As String
objMMC = CreateObject("MMC20.Application")
objMMC.Load("C:\Console1.msc") 'Локальные пользователи и группы
objDoc = objMMC.Document 'Документ
objSN = objDoc.ScopeNamespace 'Пространство имён
objRoot = objDoc.RootNode 'Корневой узел

objNode = objSN.GetChild(objRoot) 'Узел "Локальные пользователи и группы (локально)"

objNode = objSN.GetChild(objNode) 'Узел "Пользователи"
objNode = objSN.GetNext(objNode) 'Узел "Группы"
objView = objDoc.ActiveView 'Отображение
objView.ActiveScopeNode = objNode 'Установка активного узла для отображения
objList = objView.ListItems 'Получение списка в отображении
For Each objItem In objList 'Обход списка
sName = objView.CellContents(objItem, 1) 'Имя группы
sFullName = objView.CellContents(objItem, 2) 'Описание группы
Next
End Sub
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.