Пардон за банальность, но почему бы не имп API
АППЛЕМАН
GetComputerName

VB Declaration

Declare Function GetComputerName& Lib "kernel32" Alias "GetComputerNameA" _
(ByVal lpBuffer As String, nSize As Long)

Description

Retrieves the name of this computer.

Use with VB

No problem.

Parameter Type/Description
lpBuffer String—String buffer to load with the computer name.
nSize Long—The length of the buffer. This variable is loaded with the actual length of the computer name on return.
Return Value

Long—True (nonzero) on success, zero on error. Sets GetLastError.

Platform

Windows 95, Windows NT

Comments

Note that the nSize parameter is not passed by value. See Api32.txt for the value of the MAX_COMPUTER_NAME constant.

Example

Dim s$
s$ = String$(MAX_COMPUTERNAME_LENGTH+1, Ø)
Dim dl&
Dim sz&
sz& = MAX_COMPUTERNAME_LENGTH+1
dl& = GetComputerName(s$, sz)