Get the name of this computer

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
About the Author

Software Developer

Would it not be easier to use ?