Start New Discussion within our Software Development Community

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