Сетевое имя?

[Alex_new_2030]

Подскажите пожалуйста как программно можно узнать сетевое имя компьютера в локальной сети (в смысли моего компьютера)
Заранее благодарен

[GSerg]

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

'example by Donavon Kuhn (Donavon.Kuhn@Nextel.com)
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Form_Load()
    Dim dwLen As Long
    Dim strString As String
    'Create a buffer
    dwLen = MAX_COMPUTERNAME_LENGTH + 1
    strString = String(dwLen, "X")
    'Get the computer name
    GetComputerName strString, dwLen
    'get only the actual data
    strString = Left(strString, dwLen)
    'Show the computer name
    MsgBox strString
End Sub

[ПЕТР]

Подскажите пожалуйста как программно можно узнать сетевое имя компьютера в локальной сети (в смысли моего компьютера)
Заранее благодарен

А имя userа

Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long



Public Sub aaa()
Dim username As String ' receives name of the user
Dim slength As Long ' length of the string
Dim retval As Long ' return value

' Create room in the buffer to receive the returned string.
username = Space(255) ' room for 255 characters
slength = 255 ' initialize the size of the string
' Get the user's name and display it.
retval = GetUserName(username, slength) ' slength is now the length of the returned string
username = Left(username, slength - 1) ' extract the returned info from the buffer
' (We subtracted one because we don't want the null character in the trimmed string.)
Debug.Print "The name of the current user is "; username

End Sub

тоже иногда полезно

[Alex_new_2030]

Спасибо, работает

[MEMBER]

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