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.
MsgBox ("El nombre de este ordenador es: " & Left(strBuffer, lngBufSize))
EndIf
EndSub
ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo
<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Obtener el nombre del ordenador" href="http://www.tutores.org/codigo/1093/" target="_blank">Obtener el nombre del ordenador</a>
<!-- Final enlace Tutores.org -->
COMENTARIOS
Comentario usuario
Sebastian GarciaSebastian Garcia
45
Una manera mas facil es agregar el control MSWINSCK.ocx y luego poner este llamado.
Ej.form1.caption=winsock1.LocalHostName