Private Declare Function GetComputerName Lib "kernel32" Alias _ "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long' Returns the name of the computer.Function ComputerName() As String Dim buffer As String * 512, length As Long length = Len(buffer) If GetComputerName(buffer, length) Then ' this API returns non-zero if successful, ' and modifies the length argument ComputerName = Left$(buffer, length) End IfEnd Function