Conexion de area local

[oskoa]

Quiero abrir las propieades de Conexiones de area area local


osea donde esta la configuracion el TCP/IP, y el maldito NetWare, entre otras cosas.


Por medio de una Shell

Shell "RunDll32.exe shell32.dll,Control_RunDLL desk.cpl,,0"

algo como eso. Esa es para el papel tapiz del escritorio creo.

Es posible? Saludos!

[seba123neo]

Hola, te respondo porque veo que ya hiciste esta pregunta y nadie te respondio, esta mal que preguntaste de nuevo si ya habias preguntado...pero bueno..la verdad nunca he visto para abrir ese dialogo...vi para todos jeje..pero no para ese...aparte uno puede tener...por decirte...20 conexiones de red ¿ y como diferencias una de otroa las propiedades ?...pero bueno si alguien lo sabe que lo diga..pero personalmente no lo he visto..la unica que se me ocurre por ahora es que te crees un acceso directo de esa conexion de red y te fijes donde apunta ese acceso directo...te va a mostrar algo asi...{7007ACC7-3202-11D1-AAD2-00805FC1270E}, despues probas ejecutarlo...

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
   Shell "explorer.exe sParams = ::{7007ACC7-3202-11D1-AAD2-00805FC1270E}"
End Sub

y eso te habre las propiedades de la conexion...(pero no la de TCP/IP de esa conexion)...la unica seria apretar el boton ese que dice "propiedades"(que te ahbre el dialogo que vos queres) por codigo y cerrar automaticamente la ventana que abriste, asi da la impresion de que se abrio directamente la de TCP/IP...poder se puede..pero no se si esto queda "lindo"..pero si no hay otra...

saludos.

[Dessa]

Probá si te sirve este code.

Código [Seleccionar] Expandir



Option Explicit

Private Sub Form_Load()
Me.AutoRedraw = True: Me.Height = 6045: Me.Width = 4300
LoadControl
End Sub

Sub LoadControl()
 If WMI_disponible() Then
   'Me.Print "TU SISTEMA TIENE WMI", vbOKOnly + vbInformation, "WMI"
   getWMI_Info
 Else
   Me.Print "TU SISTEMA NO TIENE WMI", vbOKOnly + vbExclamation, "WMI"
 End If
End Sub

Public Function WMI_disponible() As Boolean
Dim WMI As Object
On Error Resume Next
Set WMI = GetObject("winmgmts:")
WMI_disponible = (Err.Number = 0)
End Function

Private Sub getWMI_Info()

Dim oAdapters As Object
Dim oAdapter As Object
On Error GoTo Fehler_WMI

Me.Print "----------------------------------------------------------------------------------------------"

Set oAdapters = GetObject("winmgmts:").ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")

Dim ctlip1 As String: Dim ctlip2 As String

For Each oAdapter In oAdapters
 With oAdapter
   'Me.Cls '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   If Join(.IPAddress) <> ctlip1 Then
       Me.Print "NOMBRE:" & vbTab & vbTab & vbTab & Environ$("computername")
       Me.Print "DIRECCION IP:" & vbTab & vbTab & vbTab & Join(.IPAddress)
       Me.Print "MASCARA DE SUBRED:" & vbTab & Join(.IPSubnet)
       'If Not IsNull(.DefaultIPGateway) Then
           Me.Print "PUERTA DE ENLACE:" & vbTab & vbTab & Join(.DefaultIPGateway)
       'End If
       Me.Print "DIRECCION MAC:" & vbTab & vbTab & .MACAddress
       Me.Print "DNS:" & vbTab & vbTab & vbTab & vbTab & .DNSHostName
       'If .WINSPrimaryServer <> "" Then
           Me.Print "WINS 1:" & vbTab & vbTab & vbTab & .WINSPrimaryServer
       'End If
       'If .WINSSecondaryServer <> "" Then
           Me.Print "WINS 2:" & vbTab & vbTab & vbTab & .WINSSecondaryServer
       'End If
       Me.Print ":---------------------------------------------------------------------------------------------"
       ctlip1 = Join(.IPAddress)
   End If
 End With
Next

On Error GoTo 0
Exit Sub

Fehler_WMI:
MsgBox "Error: " & Err.Number & vbTab & Err.Description, vbCritical
Resume Next
End Sub



S2

[oskoa]

En realiadad la linea de codigo (al moreador) tal cual me la diste, me abre las conexiones de redes. osea donde esta conexion de area local, y speedy, em mi caso. 

si le pongo el codigo que me dice el acceso directo, me dice error. (al margen q no lo puedo copiar y pegar, tengo q escribirlo. espero no estar escrbiendo nada mal) De todas formas dentro de todo sirve para lo que quiero y tienes razon.  Es imposuible determinar la cantidad de conexiones de Red que tiene una persona.

En tanto a la respuesta del otro usuario. Ese codigo no es para lo ue yo keria. pero lo veo bastante util para demostrar esos datos en un proyecto de VB. Ya lo voy a usar.


LO que quieo hacer realmente. Es un programita de newby (q ya lo hice) q active y desactive cadenas del registro.

Una tipica, es el Dword 0 y 1 de la pantalla de bienvenida de Windows. Que en 1 la activa y en 0 la desactiva. Pero el problema es este.

Si esta ese maldito NetWare puesto. NO tiene efecto hacer eso. por lo que tengo q desintalar Netware antes de hacer eso. Por eso keria abrir ese cuadro de dialogo.

Si tienen alguna forma mas efectiva de Desactivar / desintalar Netware, seria  de mi eterno agrado.

Saludos y gracias nuevamente

[seba123neo]

Hola, fijate si cambiando el valor en el registro se puede...

Cómo deshabilitar NetWare

saludos.

[oskoa]

emm mira la verdad yo no tngo esa bsura de netware puesto en mi pc, x lo que no puedo probar el codigo. pero parece realmente efectivo. Los valores DWORD me funcuonaron toda la vida de 15 ! Posublemente ande

En cuando de con alguna pc con esa maldición de netware, te confirmo! 

Gracias che, se agradece mucho