Código fuente para averiguar el nombre de red de una PC, desde Visual Basic y utilizando API.
' 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.