Определение имени компьютера в сети

Взято из программы Rules98 - Автор: Грибанов Сергей Юрьевич

Private Declare Function GetComputerNameA Lib "kernel32" (ByVal lpBuffer As String, ByRef nSize As Long) As Long

' Возвращает имя компьютера

Private Function GetComputerName() As String

Const MAX_COMUTERNAME = 99

Dim lpBuffer As String * MAX_COMUTERNAME

Dim lenString As Long

lenString = MAX_COMUTERNAME

Call GetComputerNameA(lpBuffer, lenString)

GetComputerName = Left$(lpBuffer, lenString)

End Function