Как получить имя домена конкретного компа? #378440

Интересует самы быстрый по выполнению способ. WMI нашел, но долго че то работает.

а так пробовал? Set WshNetwork = CreateObject("WScript.Network") MsgBox WshNetwork.UserDomain

Моя главная то цель - хорошая идентификация ИБ по строке соединения. Самая первая проблема - имя главного сервера кластера может быть записано Не знаю только будет ли всегда работать. Ведь это вроде может быть другой домен.

Да, опасения оправдались. не подходит.

для текущего сеанса пользователя - работает точно. если юзер вошел в домен - ты этот домен увидишь. если юзер не в домене  ты это тоже увидишь.

Короче нужно че то типа

вот терли когда-то....

Спасибо, но все это не то. Мне нужен ~GetHostByName ping dom nslookup dom выдают то, что нужно, т.е. полное имя компа. Но как это получить программно, я не знаю.

While Not TextStream.AtEndOfStream лови stdOut и парси как тебе надо

Спасибо. Не очень художественно конечно), но ждать более не могу. Беру)

Блин еще и визуальные эффекты убирать придумывать. Сколько же геморроя ради такой простой задачи...!

+ WinNT провайдер более универсальный и более быстрый, но у него функционала меньше (ибо более старый) копай сюда

ПолучитьСписокДоменов не возвращает нужный домен!

Ок. Лопатой все самому придется поработать) Спасибо за наводку.

значит прав нету, работает на 100% видит домены с самыми минимальными настройками

Допустим я подключился к чужой сети Vahtang.ALPA по VPN и не авторизовался в домене. Мне необходимо в 1С получить имя домена Vahtang.ALPA компьютера  BIPOD.Vahtang.ALPA из чужой сети по его netbios имени BIPOD. Команда системы BIPOD.Vahtang.ALPA Права на получение доменного имени для ping не нужны :), а вот для провайдера WINNT конечно нужны.

во первых для этого провайдера не нужна авторизация, вроде как ему NetBios нужен, хотя я с твоей схемой не пробовал. во вторых кто тебе мешает перенести код на сервер 1с и он будет выполнятся от имени лок. админа

Пардон про nslookup наврал. Только ping работает

Про сервер 1с - я поставил задачу в самом сложно случае и она должна в нем решаться.

у меня winNT видит сейчас 5 доменов, а например на вкладке прав файлов в источниках только 2, то-есть видеться 3 домена к которым у меня нету доступа... Думаю у тебя траблы с VPN и удаленным доступом, попробуй подключиться с проброской локальных дисков в сесию

Я пробую так obj = ПолучитьCOMОбъект("WinNT://BIPOD"); Но что с ним делать дальше непонятно. Не понимаю куда копать. В доке такого примера нет

У меня трабл с подключением НЕТУ. Есть база со строкой соединения Srvr="BIPOD";Ref="Base"; и она работает. Но WINNT не выдает домен Vahtang.ALPA в списке!

Смотри =)

Итак. Задача уже почти решена без устранения визуального изъяна NBName = "poligon" Str = vbNullString While Not TextStream.AtEndOfStream Wend Set objRegExp = New RegExp

Попробуй:

только если BIPOD -  не являеться контролером домена

вот это точно работает если есть доступ

Да, по формулировке решение отвечает всем требованиям. Спасибо. Однако мне как выяснилось нужно получить часть полного доменного имени компьютера с окночанием. Т.е. выдает Vahtang, а мне нужно Vahtang.ALPA. Может еще чуток докрутишь?

а зачем тебе? как я понимаю при запросе не обязательно полное имя домена указывать. Чего хоть вояешь? как я понимаю через точку пишуться домены разного уровня, тоесть тебе придеться рекурсивно получать (по крайне мере провайдером WinN), Кстати пример в у меня на соседнем домене не сработал (ошибка доступа), хотя должен был... вот нашел интересный пример (для тебя вряд-ли пойдет, но прикольно) On Error Resume Next Const ADS_SCOPE_SUBTREE = 2 objRecordSet.MoveFirst Do Until objRecordSet.EOF    objRecordSet.MoveNext Loop

Я хочу нормализовать имя кластера серверов 1С. Указание BIPOD.Vahtang не работает. Надо BIPOD.Vahtang.ALPA.

у меня нету домена с точкой, пробовать неначем проверь

Vahtang

сдаюсь, работать пошел

Спасибо за потраченное на мою задачу время! Ведь почти получилось)

Итак задача решена. Вот фрагмент кода, если кому интересно будет.   ЗапуститьСкрытоеПриложениеИДождатьсяЗавершения - функция вызывает приложение hstart. Работает быстро, красиво и надежно.

Все клево, только во внешнем соединении эта штука не работает, т.к. ЗапуститьПриложение там неопределено.

Да и в шаблоне косячок был. Вот исправленный [a-z0-9]+((.([-0-9a-zA-Za-яА-Я]+))*)s*[

И еще разок) ([-0-9a-zA-Za-яА-Я]+(.([-0-9a-zA-Za-яА-Я]+))*)s*[

Если компутер не входит в разные домены время от времени, то: Синтаксис: ПользователиWindows Возвращаемое значение: Тип: ТаблицаЗначений. Информация возвращается в виде таблицы значений, в колонках которой содержится следующая информация: ИмяДомена (DomainName) - имя домена (тип Строка); ИмяСервера (ServerName) - имя компьютера, являющегося контроллером домена (тип Строка); Пользователи (Users) - массив строк с именами пользователей домена; Локальный (Local) - признак того, что этому домену принадлежат локальные пользователи данного компьютера. Описание: Предоставляет доступ к информации о доменах и пользователях операционной системы. Недоступен на сервере 1С:Предприятие. Не используется в модуле внешнего соединения.

Спасибо. Но если еще раз внимательно прочитать название темы, то станет понятно, что речь идет о произвольном компьютере.

srvr="dom.moda";ref="zup"; ООО серверная версия, я кажется знаю зачем...:) тех. журнал все не дает покоя?

nbtstat.exe -a poligon будет правдо только нетбиос имя группы, но не факт, что группа совпадает с доменом (даже не название), правдо это редкий случай

Попробуй WMI Code creator