codice:
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long


Function TrovaNomeComputer() As String
On Error GoTo Err_TrovaNomeComputer
Dim VarRIS As Long
Dim NomeComputer As String * 145
Dim lunghezzastringa As Long
    NomeComputer = String(256, 0)
    VarRIS = GetComputerName(NomeComputer, Len(NomeComputer))
    TrovaNomeComputer = NomeComputer
Exit_TrovaNomeComputer:
    Exit Function
Err_TrovaNomeComputer:
    MsgBox Err.Number & "   " & Err.Description
    Exit Function
End Function
Funziona su tutti i Sistemi Winzozz