VB Herremienta de Diagnostico de Red

[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