lobal Const MAX_PATH = 260
Global Const MAX_COMPUTERNAME_LENGTH = 31


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

Public Function apiGetComputerName() As String
Dim charLength As Long, sPath As String, iNull As Integer
sPath = String$(MAX_COMPUTERNAME_LENGTH + 1, 0)
charLength = GetComputerName(sPath, MAX_COMPUTERNAME_LENGTH)
apiGetComputerName = TrimNull(sPath)
End Function

Public Function TrimNull(ByVal source As String) As String
Dim iNull As Long
iNull = InStr(source, vbNullChar)
If iNull Then
TrimNull = Left$(source, iNull - 1)
Else
TrimNull = source
End If
End Function
--------------
crazy about...