как в VB получить имя компьютера?

[АндрейБ]

У меня сетевая база, и я хочу отслеживать кто и с какого комьютера делал определенные действия.
Как в VB получить имя компьютера?

[АндрейБ]

И еще вопрос, есть ли элементы в VB типа DirListBox, но что бы обзор вели по сетевому окружению?
Я хочу сделать более гибкой базу, и если сервер будет не достпупен (сломан и т.п.) что бы всегда можно было помянять путь к исходным базам.

[alibek]

1. GetComputerName
2. Нет

[Денис]

Второе поясню.
Встроенных контролов нет, поэтому либо использовать компоненты сторонних разработчиков, либо делать свои.

[АндрейБ]

GetComputerName = Empty
Как вытащить значение?

По 2 вопросу плохо - будем делать через строковое значение (ручками писать)

[alibek]

Во-первых, укажи Option Explicit.
Во-вторых, воспользуйся мозгом и поищи, что такое GetComputerName.

[Joo]

По 2 вопросу плохо - будем делать через строковое значение (ручками писать)

А через CommonDialogControl путь к базе указать?

[Хакер]

SHBrowseForFolder, тогда уж.

[Visual Вова]

Можно и так:

1. Размести на форму WinSock
2. Напиши там, где нужно узнать имя компьютера:

([имя_переменной]) = ([имя_winsock]).LocalHostName

Естественно, надо заменить в тексте ([имя_переменной]) на имя переменной, куда ты хочешь получить результат, а ([имя_winsock]) - именем Winsock, которого ты добавил на форму.

Это ЕЩЁ ОДИН вариант ответа. Не надо писать, что-то типа:

а ничего что на этот вопрос уже отвечали?

Спасибо за внимание!

[alibek]

Это глупый вариант ответа.
Кроме того, возвращаться будет имя хоста, а не имя компьютера, а теоретически возможны ситуации, когда они различаются.

[Debugger]

Кроме того, возвращаться будет имя хоста, а не имя компьютера, а теоретически возможны ситуации, когда они различаются.

Это интересно. Когда?

[Antonariy]

computer_name.subdomen.domen.ru?

[Andrey Fedorov]

Из Help-a:

Код: Выделить всё

Dim WshNetwork As Object

Set WshNetwork = CreateObject("WScript.Network")
Debug.Print "Domain = " & WshNetwork.UserDomain
Debug.Print "Computer Name = " & WshNetwork.ComputerName
Debug.Print "User Name = " & WshNetwork.UserName