Altro semplice esempio questa volta per recuperare il nome del computer in uso.
Il sorgente è compatibile con Visual Basic 5 e Visual Basic 6

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

Public Function GetPCName() As String
'**************************************************************************
'Func.: GetPCName (Creazione SB-29/03/2000; Mod.: )
'Desc.: Restituisce il nome del PC in uso
'Par. :
'Ret. : Il nome del PC
'**************************************************************************
Dim cBuf As String
Dim nSize As Long
Dim Vax As Long
cBuf = String$(255, 0)
nSize = Len(cBuf)
Vax = GetComputerName(cBuf, nSize)
cBuf = Left$(cBuf, nSize)
GetPCName = IIf(Right$(cBuf, 1) = Chr$(0), Left$(cBuf, Len(cBuf) - 1), cBuf)

End Function