Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 3 sur 3
  1. #1
    Invité de passage
    Homme Profil pro mouhoub ouahab
    financier
    Inscrit en
    mai 2012
    Messages
    3
    Détails du profil
    Informations personnelles :
    Nom : Homme mouhoub ouahab
    Localisation : Algérie

    Informations professionnelles :
    Activité : financier
    Secteur : Finance

    Informations forums :
    Inscription : mai 2012
    Messages : 3
    Points : 0
    Points
    0

    Par défaut Problem connexion internet sous win vista

    bon jour,
    je n'arrive pas a connecter sur internet. " le message apparu apres le diagnostique est se situe dans la configuration DSN .

  2. #2
    Expert Confirmé Sénior Avatar de JML19
    Homme Profil pro Jean Michel
    Retraité : Electrotechnicien Electronicien Informaticien de la SNCF
    Inscrit en
    décembre 2010
    Messages
    7 173
    Détails du profil
    Informations personnelles :
    Nom : Homme Jean Michel
    Localisation : France, Corrèze (Limousin)

    Informations professionnelles :
    Activité : Retraité : Electrotechnicien Electronicien Informaticien de la SNCF
    Secteur : Transports

    Informations forums :
    Inscription : décembre 2010
    Messages : 7 173
    Points : 10 656
    Points
    10 656

    Par défaut

    Bonjour

    le DSN ou le DNS ?

    Utilises ipconfig /all pour savoir où en est ton réseau.

  3. #3
    Expert Confirmé Sénior
    Avatar de hackoofr
    Homme Profil pro Mehdi Tounisiano
    Enseignant
    Inscrit en
    juin 2009
    Messages
    2 653
    Détails du profil
    Informations personnelles :
    Nom : Homme Mehdi Tounisiano
    Âge : 39
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : juin 2009
    Messages : 2 653
    Points : 5 980
    Points
    5 980

    Par défaut


    C'est quoi la dernière action que vous avez fait avant que ce problème de connexion apparaît ? càd Avez-vous installer un logiciel de réseau ou bien un genre de proxy ? ou autre ?
    essayer de rebooter votre Routeur afin de réinitialiser et de renouveler une autre adresse IP.
    sinon essayer de copier et coller ce vbscript en l'enregistrant sous le nom Changer_Mon_IP.vbs et exécuter-le par double-clique et dis-moi le résultat
    Cordialement !
    Code :
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    Call Reboot_Routeur() 'Pour Renouveler l'adresse IP Publique
    Call New_Local_IP() 'Pour Renouveler l'adresse IP Locale
    Call TestConnexionInternet() 'Pour Tester sa connexion Internet
    
    Sub New_Local_IP 'Pour Renouveler l'adresse IP Locale
    Dim Ws,command,StrCommand,Resultat
    Set Ws = CreateObject("WScript.Shell")
    command = "netsh interface ip delete arpcache & ipconfig /release & ipconfig /flushdns & ipconfig /renew & arp -a & nbtstat -R"
    StrCommand = "cmd /c "& command &""
    Resultat = ws.Run(StrCommand,1,True)
    End Sub
    
    Sub Reboot_Routeur() 'Rebooter le Routeur afin de Renouveler l'adresse IP Publique
    Set ws = CreateObject("wscript.shell")
    Command = "Telnet 192.168.1.1"
    StrCommand = "cmd /c "& Command &""
    Execution = ws.run(StrCommand,1,False)
    wscript.sleep 5000
    ws.AppActivate Command
    ws.sendkeys "admin"
    ws.sendkeys "{enter}" 
    ws.sendkeys "admin" 
    ws.sendkeys "{enter}"
    wscript.sleep 1000
    ws.sendkeys "Reboot"
    ws.sendkeys "{enter}"
    wscript.sleep 1000
    ws.sendkeys "{enter}"
    End Sub
    
    Sub TestConnexionInternet() 'Pour Tester sa connexion Internet
    Dim Boucle,strComputer,MsgTitre,objPing,objStatus
    Boucle = True
    While Boucle = True
    strComputer = "smtp.gmail.com"
    MsgTitre = "TEST DE CONNEXION INTERNET ET SMTP DE GMAIL © Hackoo © 2012"
    Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}!\\").ExecQuery("select * from Win32_PingStatus where address = '" & strComputer & "'")
    For Each objStatus in objPing
    If objStatus.Statuscode = 0 Then
    msgbox "TEST SMTP DE GMAIL EST OK . VOUS ETES CONNECTE A INTERNET ET LE SMTP DE GMAIL EST DISPONIBLE ! ",64,MsgTitre
    Boucle = False
    Call Ip_Publique() ' Appel de la fonction Ip_Publique()
    wscript.quit
    else
    msgbox "TEST SMTP DE GMAIL EST NO OK . VOUS N'ETES PAS CONNECTE A INTERNET ET LE SMTP DE GMAIL N'EST PLUS DISPONIBLE EN CE MOMENT !",16,MsgTitre
    End If
    Next
    wscript.sleep 60000
    Wend
    End Sub
    
    Sub OpenLog(File)
    Dim ws
    Set ws = CreateObject("wscript.shell")
    ws.run "Notepad " & File,1,True
    Set ws = Nothing
    End Sub
    
    Sub Ip_Publique 'Pour sauvgarder un historique des adresses IP Publique qui ont été modifié dans un fichier texte
    Dim Titre,URL,ie,objFSO,Data,OutPut,objRegex,Match,Matches
    Titre = "Adresse Ip Publique © Hackoo © 2012"
    URL = "http://monip.net"
    Set ie = CreateObject("InternetExplorer.Application")
    Set objFSO = CreateObject("Scripting.FileSystemObject") 
    ie.Navigate (URL) 
    ie.Visible=false
    DO WHILE ie.busy
    wscript.sleep 100
    LOOP
    Data = ie.document.documentElement.innertext 
    Set OutPut = objfso.OpenTextFile("c:\monip.txt",8,True)
    ie.Quit 
    Set ie = Nothing
    Set objRegex = new RegExp
    objRegex.Pattern = "\b([0-9]{1,3}\.){3}[0-9]{1,3}\b" ' Motif pour y extraire l'adresse IP Publique
    objRegex.Global = False
    objRegex.IgnoreCase = True
    Set Matches = objRegex.Execute(Data)
    For Each Match in Matches   
        MsgBox "Mon IP Publique est : " & vbCr & Match.Value ,64,Titre
        OutPut.WriteLine string(40,"-") & vbcr &"  Nous sommes le "& Now & vbcr & string(40,"-") & vbcr & "  Mon IP Publique est : "& Match.Value & vbcr & string(40,"*")
    Next
    Call OpenLog("c:\monip.txt")
    End Sub

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •