Public Declare Function GetLocalComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nsize As Long) As Long
 
Public Function GetComputerName() As String
'==================================
'==================================
Dim strComputerName	 As String
Dim lngResult		 As Long
 
'-- Set up buffer.
strComputerName = String$(255, 0)
 
'-- Make the call.
lngResult = GetLocalComputerName(strComputerName, 255)
 
'-- Clean up and assign the value.
If lngResult = 1 Then GetComputerName = Left$(strComputerName, InStr(1, strComputerName, vbNullChar) - 1)
End Function