Guienme un poco. Conexiones de red

[70N1]

Pues me gustaria crear una conexion de red para mi programa al iwal que hace hamachi o editar una conexion ya existente.

Que es lo que tengo que buscar?. Por que por la red no consigo gran cosa.
he encontrado algo de msdos(net use), pero eso no es creo yo.... Eso es para extablecer una conexion de red con otro equipo.

[Hole_System]

Explicate mas...

[70N1]

La red que esta en: inicio/panel de control/conexiones de red
Pues quiero configurarla mediante codigo.

[cobein]

A ver si esto te ayuda

http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=14584&lngWId=1

[70N1]

No me funciono pero encontre esto que si funka.

Código [Seleccionar] Expandir

Private Sub Form_Load()
Dim objWMI As Object, objAdaptador As Object
Dim arrIP As Variant, arrMascara As Variant
Dim arrPuertaEnlace As Variant, arrMetrica As Variant
Dim lngResultado1 As Long, lngResultado2 As Long
     Set objWMI = GetObject("winmgmts:\\.\root\cimv2")
     arrIP = Array("192.168.1.141")
     arrMascara = Array("255.255.255.0")
     arrPuertaEnlace = Array("192.168.1.100")
     arrMetrica = Array(1)
     For Each objAdaptador In objWMI.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
          lngResultado1 = objAdaptador.EnableStatic(arrIP, arrMascara)
          lngResultado2 = objAdaptador.SetGateways(arrPuertaEnlace, arrMetrica)
          If lngResultado1 = 0 And lngResultado2 = 0 Then
               Label1 = "Dirección IP, máscara de subred y puerta de enlace modificadas"
          Else
               Label1 = "No se han podido modificar la dirección IP, máscara de subred y puerta de enlace"
          End If
     Next objAdaptador
     Set objWMI = Nothing
End Sub

Ahora lo que necesito es activar el compartir archivos y impresoras mediante codigo.