Как получить сетевое имя машины?
У меня задача - нужно в БД писать имя компьютера, с которого заносятся данные. Как мне получить имя компа? Кто-нибудь знает?
Если честно, сейчас сразу так не вспомнить, да и времени искать в коде нет... могу послать пример...
Если честно, сейчас сразу так не вспомнить, да и времени искать в коде нет... могу послать пример...
Если можешь, скинь. Буду премного благодарен.
Если можешь, скинь. Буду премного благодарен.
Народ, хоть какую библиотеку подключать-то? Просто, подскажите, какая библиотека нужна?:{
Народ, хоть какую библиотеку подключать-то? Просто, подскажите, какая библиотека нужна?:{
Вроде нашёл пример:
http://web.host.kz/dias/vb.htm#36
Если у кого есть ещё варианты, буду очень благодарен. По-моему, тут совсем необязательно использовать API, как в этом примере
Вроде нашёл пример:
http://web.host.kz/dias/vb.htm#36
Если у кого есть ещё варианты, буду очень благодарен. По-моему, тут совсем необязательно использовать API, как в этом примере
Лови! там много всякого полезного...
Лови! там много всякого полезного...
Мой вариант (вернее, не мой. а тот, который я содрал с вышеуказанной ссылки):
Public Declare Function GetComputerNameA Lib "kernel32" _
(ByVal lpBuffer As String, nSize _
As Long) As Long
Public Function GetMachineName() As String
'МАХ содранная из инета функция получения имени машины пользователя
On Error GoTo ErrHnd 'МАХ в случае ошибки переходим к собственному обработчику ошибок
Dim sBuffer As String * 255
If GetComputerNameA(sBuffer, 255&) _
<> 0 Then
GetMachineName = Left$(sBuffer, _
InStr(sBuffer, vbNullChar) _
- 1)
Else
GetMachineName = "(Not Known)"
End If
Exit Function
ErrHnd: 'МАХ область обработки ошибок
'МАХ передача управления процедуры ведения лога
ErrDescr Err.Number, Err.Description, "FrModGlobalProcedures.CngODBCNmes"
End Function
Мой вариант (вернее, не мой. а тот, который я содрал с вышеуказанной ссылки):
Public Declare Function GetComputerNameA Lib "kernel32" _
(ByVal lpBuffer As String, nSize _
As Long) As Long
'''
'''
'''
End Function
Работает - я очень рад... да и сам примерчик ваще прикольный %)