script vbs pour autoconnect wifi

Marsh Posté le 03-01-2010 à 01:57:11

Coucou,

j'ai cherché pas mal un script permettant de chercher si une connexion réseau était dispo et aussi de quoi "réparer" la connexion au cas où celle-ci est down, dans le cas du wifi.

Donc j'ai pondu ça à partir des scripts que j'ai chopés ici et là:

Code :

Dim conn
conn = false
Set objShell = WScript.CreateObject("WScript.Shell" )
Set args=Wscript.Arguments
do until conn = true
Set objExec = objShell.Exec("Ping -n 1 -l 1 www.google.fr" )
Do until objExec.stdout.AtEndOfStream = true
if InStr(objExec.stdOut.ReadLine,"TTL=" )<>0 Then
conn = true
end if
loop
if(conn=false) then
objShell.Run ("Devcon disable *DEV_9066*" )
WScript.Sleep 30000
objShell.Run ("Devcon enable *DEV_9066*" )
WScript.Sleep 30000
end if
loop
wscript.echo "connecté"
wscript.quit

Ce que le script fait:
- il pinge google.fr
- si google.fr répond présent on est connecté tout va bien il quitte
- sinon il boucle en déconnectant ma carte réseau wifi + 30 sec d'attente, et la reconnecte (ce que fait windows quand vous faites "réparer" sur une connexion wifi)
- et il reteste jusqu'à ce que la connexion soit établie

Utilité:
- j'ai un PC dans un placard avec fichiers, homeplayer, etc...
- il me le faut connecté quand je l'allume, et qu'il le reste ensuite... et la carte réseau est de qualité médiocre...

Comment j'utilise le script:
- planificateur des tâches, lancé une fois au démarrage du PC
- lancé toutes les heures pour vérifier que la connexion tombe pas

Prérequis:
- avoir l'utiltaire devcon.exe de microsoft

Pour l'adapter pour vous:
- changer le DEV_9066 par l'équivalent pour votre carte (pour cela consulter la doc de devcon
- changer éventuellement les délais de connexion/déconnexion qui dépendent de votre matos à vous...

Et voilà, si jamais ça peut faire un heureux...

Marsh Posté le 03-01-2010 à 01:57:11

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *