Hola, con el zip que te paso Sagutxo, lo he modificado, en la parte del if que he puesto, esta entre comentarios que son solo asteriscos, dentro del if puedes poner el siguiente comando: Shell("cmd /c explorer\\")&(tx.shortname)&("\C$")
tx.shortname = nombre del equipo, esta en el programa
\c$ = recurso predeterminado del equipo
Para que esto funcione, la pc que tu tienes debe tener la misma contraseña de la pc que tienes, o debes conocer la contraseña del equipo al que accedes, si es asi, entonce puedes acceder, dentro del programa modificado hay un msgbox que te dice la ip, con ella tb puedes hacer muchas cosas, tb puedes usar el shell para usar los comando que te puse arriba, pero solo funciona bien si lo usas para ejecutar comandos o programas, como enviar mensajes con NET SEND [equipo] [mensaje], etc es cuestion que investigues un poco. Espero te sea de ayuda.
Lo olvidaba, para que te apresca el msgbox con la ip y otros, debes abrir el arbol del grupo de trabajo o dominio
Busca mas informacion aca:
http://www.programatium.com/vb.htm
