IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Windows Vista Discussion :

Problem connexion internet sous win vista


Sujet :

Windows Vista

  1. #1
    Futur Membre du Club
    Homme Profil pro
    financier
    Inscrit en
    Mai 2012
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Algérie

    Informations professionnelles :
    Activité : financier
    Secteur : Finance

    Informations forums :
    Inscription : Mai 2012
    Messages : 3
    Points : 6
    Points
    6
    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 éminent sénior
    Avatar de JML19
    Homme Profil pro
    Retraité : Electrotechnicien Electronicien Informaticien de la SNCF
    Inscrit en
    Décembre 2010
    Messages
    14 916
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Corrèze (Limousin)

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

    Informations forums :
    Inscription : Décembre 2010
    Messages : 14 916
    Points : 23 212
    Points
    23 212
    Billets dans le blog
    10
    Par défaut
    Bonjour

    le DSN ou le DNS ?

    Utilises ipconfig /all pour savoir où en est ton réseau.
    Vous pouvez utiliser les FAQ (ICI) ou les Tutoriels (ICI) et aussi accéder au blog (ICI)

  3. #3
    Expert éminent
    Avatar de hackoofr
    Homme Profil pro
    Enseignant
    Inscrit en
    Juin 2009
    Messages
    3 836
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 48
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Juin 2009
    Messages : 3 836
    Points : 9 217
    Points
    9 217
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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

Discussions similaires

  1. Réponses: 0
    Dernier message: 21/09/2010, 13h41
  2. Problème de connexion internet sous Mandriva
    Par Coussati dans le forum Réseau
    Réponses: 9
    Dernier message: 05/04/2006, 18h52
  3. Problème de connexion Internet sous Debian
    Par jejerome dans le forum Réseau
    Réponses: 8
    Dernier message: 03/04/2006, 16h02
  4. Problème de connexion internet sous RedHat 9
    Par sali dans le forum Réseau
    Réponses: 8
    Dernier message: 05/08/2005, 00h28

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo