Enviado por Yuri
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.