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
![VP Climate](https://www.devx.com/wp-content/uploads/VP-Climate-300x171.jpg)
![VP Climate](https://www.devx.com/wp-content/uploads/VP-Climate-300x171.jpg)