Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Основной DNS-суффикс компьютера, Получение основного DNS-суффикс компьютера или полного имя компьютера через vba
 
#1
24.02.2016 10:40:24
Добрый день!
Столкнулся с ситуацией когда необходимо узнать через VBA основной DNS-суффикс компьютера у компьютера в рабочей группе (не в домене!).
И не понимаю куда копать, поиск по гуглю приводит к поиску имен пользователей или компьютера.
Написал тестовый файл. У меня все срабатывает, но на конечной машине выводит ошибку в модуле 2.
Environ возвращает необходимое значение.
Файл и описание ошибки в приложениях.
Подскажите куда еще рыть, политики на компьютерах менять нельзя.
Спасибо.  
 
 
 
#2
24.02.2016 11:13:06
Ваш вопрос к экселю не имеет никакого отношения. Ошибка возникает из-за "кривых" аккаунтов на целевой машине, не совпадающих с записями в локальных или доменных политиках.
 
 
 
#3
24.02.2016 11:23:36
Влад, вопрос не про ошибку, это была самостоятельная попытка.
Сам вопрос как или какими функциями WinAPI получить: "Основной DNS-суффикс этого компьютера"  
 
 
 
#4
24.02.2016 12:08:25
Доброе время суток
А искать не пробовали? vbscript получить полное сетевое имя компьютера
Успехов
 
 
 
#5
24.02.2016 14:10:54
Успех не долог(

Обратить внимание:
  • UserDomain показывает только имя домена в формате имени NetBIOS. Имена в формате Active Directory не выводятся. Если компьютер работает не в домене, а в рабочей группе, выводится пустая строка
Вот как раз пустой строки мне и не надо(
А при использовании ComputerName имя компьютера без основного DNS-суффикса. (можно б было с ним, вопросов бы не было).
Код
Set obj = GetObject("LDAP://rootDSE")
domain = obj.Get("defaultNamingContext")
MsgBox domain

и даже такой код выдает ошибку
Скрытый текст
 
 
 
#6
25.02.2016 13:53:47
В итоге задачу решил сам, методом запроса к ветке реестра.
Может кому-то и пригодится решение.
Код
Sub из_реестра()
Set WshShell = CreateObject("WScript.Shell")
On Error Resume Next
MsgBox WshShell.RegRead("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters\NV Domain")
End Sub
Ошибка подавляется при отсутствии значения. Можно было и проверять для начала наличие, но как-то лень.
 
 
 
#7
25.02.2016 15:56:58
Доброе время суток.
Цитата
Может кому-то и пригодится решение.
Полосатый, спасибо большое! Так и становятся участниками форума.

Offtop
А то ходят тут разные потребители и ворчат - форум стал не тот кекс - всегда готовый к употреблению
Изменено: Андрей VG - 25.02.2016 15:57:17
 
 
 
Страницы: 1
Читают тему
Наверх