Контроллеры домена

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Viper
Артефакт VBStreets
Артефакт VBStreets
Аватара пользователя
 
Сообщения: 4394
Зарегистрирован: 12.04.2005 (Вт) 17:50
Откуда: Н.Новгород

Контроллеры домена

Сообщение Viper » 21.03.2006 (Вт) 12:14

Такая проблема нарисовалась. Понадобилось определить имена контроллеров домена локальной сети. Основной находится без проблем при помощи API функции NetGetDCName. Но в домене может быть несколько контроллеров. Сейчас ищу их функциями NetServerEnum и NetServerGetInfo. Но этот метод начинает здорово тормозить при наличии зарегестированного, но уже выключенного компа в сети.

Нет ли метода попроще?
Весь мир матрица, а мы в нем потоки байтов!

Viper
Артефакт VBStreets
Артефакт VBStreets
Аватара пользователя
 
Сообщения: 4394
Зарегистрирован: 12.04.2005 (Вт) 17:50
Откуда: Н.Новгород

Сообщение Viper » 22.03.2006 (Ср) 8:39

что значит в учет не брать? они в списке компов есть, и соотвественно функция NetServerGetInfo пытается получить информацию об этих компах и тратит на это приличное время
Весь мир матрица, а мы в нем потоки байтов!

Sebas
Неуловимый Джо
Неуловимый Джо
Аватара пользователя
 
Сообщения: 3626
Зарегистрирован: 12.02.2002 (Вт) 17:25
Откуда: столько наглости такие вопросы задавать

Сообщение Sebas » 22.03.2006 (Ср) 10:19

LDAP?
- Я никогда не понимал, почему они приходят ко мне чтобы умирать?

sebas<-@->mail.ru

Ennor
Конструктивный критик
Конструктивный критик
 
Сообщения: 2504
Зарегистрирован: 18.12.2001 (Вт) 3:58
Откуда: Калуга -> Москва

Сообщение Ennor » 22.03.2006 (Ср) 14:03

Да, типа того:
Код: Выделить всё
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\directory\LDAP")
Set colItems = objWMIService.ExecQuery("SELECT * FROM RootDSE", "WQL", _
  wbemFlagReturnImmediately + wbemFlagForwardOnly)

Не уверен, но похоже...

Viper
Артефакт VBStreets
Артефакт VBStreets
Аватара пользователя
 
Сообщения: 4394
Зарегистрирован: 12.04.2005 (Вт) 17:50
Откуда: Н.Новгород

Сообщение Viper » 22.03.2006 (Ср) 17:47

2 Ennor попробую проверить... бум надеятся, что то :D
Весь мир матрица, а мы в нем потоки байтов!

Viper
Артефакт VBStreets
Артефакт VBStreets
Аватара пользователя
 
Сообщения: 4394
Зарегистрирован: 12.04.2005 (Вт) 17:50
Откуда: Н.Новгород

Сообщение Viper » 25.03.2006 (Сб) 8:00

Не совсем как оказалось то, но направление оказалось верным! Большое спасибо!

З.Ы. Заодно косвенно решилась проблема об имени пользователя работающего за компом с заданным именем, поднимаемая в соседней теме
Весь мир матрица, а мы в нем потоки байтов!


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: AhrefsBot, Google-бот и гости: 14

    TopList