hola amigos vengo trabajando en un proyecto en el cual tengo la necesidad de mostrar los equipos de al red en la que me encuentro, osea que el vb busque los nombres de los equipos que me saldrían al irme a mis sitios red, toda le red.. y alli me salen los nombres.
si alguien puede ayudarme se lo agradecería bastante
salu2
No se como estas haciendo tu aplicacion, pero si utilizas sockets, con winsok.localhostname obtenes el nombre de la pc local, y sino con APIs: GetComputerName, un ejemplo:
Private Const MAX_COMPUTERNAME_LENGTH As Long = 30
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Command1_Click()
Dim longitud As Long
Dim nombrepc As String
longitud = MAX_COMPUTERNAME_LENGTH + 1
nombrepc = String(longitud, "X")
GetComputerName nombrepc, longitud
nombrepc = Left(nombrepc, longitud)
MsgBox nombrepc
End Sub
Salu2!!
En realidad no tengo problemas para obtener funciones locales como la ip el nombre de usuario, etc,, el problema esta en que tengo una listview y alli deben aparecer un listado de todas las pc del laboratorio
por ejemplo pclab01, pclab02...
Bueno busco como hacerlo pero no lo hago :s
se tambien que lo podría conseguir con el winsock luego lo envío, pero no tiene que haber una conexión establecida, la idea es obtener las maquinas asi como cuando entras a mis sitios red y te muestra todas las pc de trabajo de la red.
gracias por su atencion y su ayuda
salu2