GetComputerName Function

Declare Function GetComputerName Lib "kernel32.dll" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

GetComputerName reads the name of the user's computer. I'm not certain, but I think this may be the computer's name on the network (I don't have a newtworked computer, so I may be wrong). The name is put into the string variable passed as lpBuffer. The function returns 0 if an error occured, or a non-zero value if successful.

lpBuffer

A fixed-length string large enough to hold the returned computer name followed by vbNullChar.

nSize

The length in characters of lpBuffer.

Example:

Dim compname As String * 255, cname As String  ' more than long enough
' Read the computer's name
x = GetComputerName(compname, 255)
' Trim blank spaces and ending vbNullChar
cname = Trim(compname)
cname = Left(cname, Len(cname) - 1)
Debug.Print "My name is " cname

Category: System Information
Back to the index.