VB Herremienta de Diagnostico de Red

[xMarioHx]

Hola, no estoy seguro de que tan posible sea esto pero.

Estoy realizando un programa en Visual 2010, en el cual por medio de un ping reviso si Esta conectado a internet.

me gustaria que en caso de no estar conectado me abriera una ventana con la herramienta que viene por defecto en IE "Diagnostico de Conección de Red"

No estoy seguro si esa herramienta es parte de Windows o Internet Explorer, el caso es que no encontre ninguna Shell para ella

he buscado mucho en google sin respuesta.

Desde ya muchas Gracias por la ayuda.

lo mas parecido que encontre fue:
Shell ("RunDll32.exe shell32.dll,Control_RunDLL ncpa.cpl")

Pero esto me habre las conexiones de redes activas.

Yo Necesito es tipica herramienta que aparece en internet explorer cuando no tienes internet.

Para explicarme mejor, a esa herramienta me refiero:

[xMarioHx]

Lo solucione, dejo el código, quizás a alguien le sirva.

Es un SUB, puedes llamarlo donde quieras, y enviara un mensaje si tiene una conexión valida, en caso contrario ejecutara el Diagnostico de Windows.

checkRed()

Código vb:

Public Sub checkRed() ' Comprobamos si tiene acceso a la red
        Dim vinculo As New System.Uri("http://www.aimbox.cl/")
        Dim objWebReq As System.Net.WebRequest
        objWebReq = System.Net.WebRequest.Create(vinculo)
        Dim objResp As System.Net.WebResponse
        Try
            objResp = objWebReq.GetResponse
            objResp.Close()
            objWebReq = Nothing
            ' Tienes conexión a Internet
            MsgBox("Su Conexión a Internet es Valida")
        Catch ex As Exception
            objWebReq = Nothing
            If MsgBox("Su sistema no cuenta con una conexión a Internet valida." & (Chr(13)) & (Chr(13)) & "¿Desea Abrir el Asistente de Conexión de Internet?", MsgBoxStyle.Question, "Error de Red") = MsgBoxResult.Ok Then
                ' LLamamos a la herramienta de diagnostico de redes
                Try
                    ' Windows Xp
                    System.Diagnostics.Process.Start("C:/WINDOWS/network diagnostic/xpnetdiag.exe")
                Catch ex As Exception
                    Try
                        ' Windows XP
                        System.Diagnostics.Process.Start("%systemroot%/network diagnostic/xpnetdiag.exe")
                    Catch ex2 As Exception
                        Try
                            ' Windows Seven
                            System.Diagnostics.Process.Start("C:/WINDOWS/diagnostics/system/Networking/DiagPackage.diagpkg")
                        Catch ex3 As Exception
                            MsgBox("Lo Siento, No he podido iniciar el diagnostico de Windows de forma automática. Por favor realícelo manualmente y vuelva a ejecutar el programa.", MsgBoxStyle.Information, "Diagnostico no Ejecutado")
                            Try
                                Shell("RunDll32.exe shell32.dll,Control_RunDLL ncpa.cpl")
                                End
                            Catch ex4 As Exception
                                End
                            End Try
                        End Try
                    End Try
                End Try
            End If
        End Try
    End Sub
 

PD: No encontré la ruta de Windows vista, pero debería ser igual a la de Seven