test de connexion et reboot

Version imprimable

Bonjour a tous.
je suis un novice en dévellopement et j'ai un soucis.

Je cherche a faire un VBS qui me permettrait de ping www.google.fr et si le test echoue. je souhaiterai que celui-ci se connecte en auto a mon routeur pour faire un redémarrage de celui-ci.

J'aurais besoin d'un coup de pouce.

Voila ou j'en suis :

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
Dim shell, args, params, fso, fa,fs 
Set shell = WScript.CreateObject("WScript.Shell") 
Set fso = WScript.CreateObject("Scripting.FileSystemObject") 
Set args = Wscript.Arguments 
Script=Lcase(Wscript.ScriptFullName) 
set fs=fso.GetFile(Script) 
sps=lcase(fs.ShortPath)
 
 
if ping = 0 then
	shell.Run "telnet 192.168.0.1"
	wscript.sleep 500 
	Shell.SendKeys "admin" & chr(13)
	WScript.Sleep 500
	Shell.SendKeys "passwd:" & chr(13)
	WScript.Sleep 500
	Shell.SendKeys "reboot" & chr(13)
	WScript.Sleep 1
	Shell.SendKeys "Logout" & chr(13)
	WScript.Sleep 1
	Shell.SendKeys "quit" &  chr(13) & chr(13)
	WScript.Sleep 1
	Shell.SendKeys "exit" & chr(13)
else
	Shell.SendKeys "exit" & chr(13)
end if
 
 
PING = Shell.Run("Ping.exe 192.168.0.1", 0,TRUE)
Msgbox "Resultat du PING " & PING
 
exit

26/04/2011, 11h44
SfJ5Rpw8

pour le test du ping inspire toi du deuxième code :

http://vb.developpez.com/faqvbs/?page=III.4#wmiPing

donc ca ressemblerai a cela ?

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
Dim shell, args, params, fso, fa,fs 
Set shell = WScript.CreateObject("WScript.Shell") 
Set fso = WScript.CreateObject("Scripting.FileSystemObject") 
Set args = Wscript.Arguments 
Script=Lcase(Wscript.ScriptFullName) 
set fs=fso.GetFile(Script) 
sps=lcase(fs.ShortPath)
 
strComputer = "192.168.0.1"
 
 
Set objShell = CreateObject("WScript.Shell")
Set objScriptExec = objShell.Exec( _
    "ping -n 2 -w 1000 " & strComputer)
strPingResults = LCase(objScriptExec.StdOut.ReadAll)
If InStr(strPingResults, "perdus = 0") Then
        msgbox (strComputer & " repond au ping !")
 
 
Else
    msgbox (strComputer & " na pas repondu au ping!")
        shell.Run "telnet 192.168.0.1"
	wscript.sleep 500
	Shell.SendKeys "admin" & chr(13)
	WScript.Sleep 500
	Shell.SendKeys "passwd" & chr(13)
	WScript.Sleep 500
	Shell.SendKeys "reboot" & chr(13)
	WScript.Sleep 1
	Shell.SendKeys "Logout" & chr(13)
	WScript.Sleep 1
	Shell.SendKeys "quit" &  chr(13) & chr(13)
	WScript.Sleep 1
	Shell.SendKeys "exit" & chr(13)
End If

26/04/2011, 12h57
SfJ5Rpw8

oui avec :

Code:

strComputer = "www.google.fr"
26/04/2011, 13h07
loalissa

Premiére chose. merci bcp pour ton aide.
Par contre, j'ai pas mal d'erreur de déboguage au niveau des déclarations.
26/04/2011, 13h14
SfJ5Rpw8

c'est quoi les erreurs ... je comprends pas ce que tu veux faire avec fso ...

Code:

Set fso = WScript.CreateObject("Scripting.FileSystemObject")
26/04/2011, 13h23
loalissa

pratiquement tout le code a été reprise sur le net.
Ca fait tellement d'année que je n'ai pas fait de VB. que je ne serais répondre a ta questions.
27/04/2011, 10h23
ced600

Citation:

Premiére chose. merci bcp pour ton aide.
Par contre, j'ai pas mal d'erreur de déboguage au niveau des déclarations.

Il faut déclarer les variables utilisées.

Code:

Dim shell, args, params, fso, fa,fs

devient

Code:

Dim shell, args, params, fso, fa, fs, Script, sps, objShell, objScriptExec, strPingResults

Peut être devrais tu rechercher des tutoriaux VBS expliquant les fondamentaux du langage ?
Par exemple commencer par ce tutorial developpez.com de Serge Tahé :
http://tahe.developpez.com/web/vbscript/

Ping Test Connexion Internet !

:salut: Voila un Script que j'utilise pour savoir si je suis vraiment connecté sur internet ou non :ccool: et c'est à vous de le modifier et de l'adapter pour votre script final ;)
Code:

1 2 3 4 5 6 7 8 9 10 strComputer = "www.google.com" msgbox "Ping de : " & strComputer,64,"Ping Test Connexion Internet" 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 PING OK . Vous êtes désormais connecté à INTERNET : " & objStatus.Statuscode,64,"Ping Test Connexion Internet" else msgbox "TEST PING ECHOUE . Vous n'êtes pas connecté à INTERNET: " & objStatus.Statuscode,16,"Ping Test Connexion Internet" End If Next
et pour la partie de AutoLogin sur la page de votre routeur essaye de faire un copier / coller du code source HTML pour voir si vous pouvez le piloter automatiquement comme dans la :faq: Comment piloter Internet Explorer pour envoyer des informations à un site internet?