Get the name of this computer

SleepDepD 0 Tallied Votes 165 Views Share

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
jwshepherd 0 Junior Poster

Would it not be easier to use ?

enum("COMPUTERNAME")

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.