Visual Basic - Obtener el nombre del ordenador

Códigos Visual Basic

Para ejecutar este codigo Vb debemos crear un modulo con el primer codigo posteriromente un formulario con un boton llamado Command1 el cual ejecutará la aplicacion. Con esto conseguimos el nombre del Ordenador.

Tutores.org

Inicio > Visual Basic

Visitas: 21,960 - 16/05/2004 2:44:30

CODIGO

// Codigo ofrecido por Tutores.org

' ---------- MODULO
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
' ---------- FORMULARIO
Private Sub Command1_Click()
Dim strBuffer As String
Dim lngBufSize As Long
Dim lngStatus As Long
lngBufSize = 255
strBuffer = String$(lngBufSize, " ")
lngStatus = GetComputerName(strBuffer, lngBufSize)
If lngStatus <> 0 Then
MsgBox ("El nombre de este ordenador es: " & Left(strBuffer, lngBufSize))
End If
End Sub

ENLACE AL CODIGO

Si quieres enlazar desde tu pagina a este codigo

<a title="Tutores.org - Obtener el nombre del ordenador" href="http://www.tutores.org/codigo/1093/" target="_blank">Obtener el nombre del ordenador</a>

COMENTARIOS

Comentario usuario

Sebastian GarciaSebastian Garcia

1 5

Una manera mas facil es agregar el control MSWINSCK.ocx y luego poner este llamado.
Ej.form1.caption=winsock1.LocalHostName

Espero les sirva abrazo

INSERTAR COMENTARIO

Usuario:
Email:
Comentario:
	Codigo Seguridad
	Antes de enviar un comentario... Todos los comentarios son revisados personalmente Todo comentario que no haga relacion al codigo mostrado en esta pagina sera eliminado Usuarios registrados tienen preferencia en recibir respuestas de ayuda!! Ademas de poder insertar Imagenes,Enlaces y otras propiedades del editor. Por favor, insertar los comentarios descriptivos.