Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" _ (ByRef lpbuffer As String, nSize As Long) As Long
Public Function ComputerName() As String Dim sBuffer As String Dim lSize As Long Dim sNome As String
sBuffer = Space$(260) lSize = Len(sBuffer) Call GetComputerName(sBuffer, lSize) If lSize > 0 Then sNome = Left$(sBuffer, lSize) lSize = InStr(sNome, Chr$(0)) If lSize Then sNome = Left$(sNome, lSize - 1) End If Else sNome= "" End If 'ComputerName = sNome MsgBox sNome End Function
