' Esta funcion permite saber el nombre de la PC en donde estamos ejecutando una
'aplicacion. Fue expuesta en la lista de noticas de Visual Basic.

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

Function PCName() As String
Dim sBuffer As String
Dim lSize As Long
sBuffer = Space$(255)
lSize = Len(sBuffer)
Call GetComputerName(sBuffer, lSize)
If lSize > 1 Then
PCName = Left$(sBuffer, lSize)
If Asc(Right$(PCName, 1)) = 0 Then
PCName = Left$(PCName, Len(PCName) - 1)
End If
Else
PCName = "Desconocido"
End If
End Function

'Llamando la funcion PCName, esta devuelve el nombre de la PC.