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
2
Contributors
1
Reply
5
Views
13 Years
Discussion Span
Last Post by jwshepherd
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.