[VBS] Besoin d un petit coup de main

Besoin d un petit coup de main [VBS] - Divers - Programmation

Marsh Posté le 02-11-2003 à 19:37:14    

Hello
bon j ai des soucis avec mon DHCP
parfois je suis déconnecté du net, et il faut que je fasse un ipconfig/ renew pour etre a nouveau connecté.
 
voila l'aglo de mon soft en gros:
 
 debut
 Si ping google == ok
    attendre 30s
    Sinon faire  
     ipconfig /renew
    fin sinon
 fin si
 retourner au début
 
 
Voila c est donc un script tres simple mais je ne sais pas en quel langage je peux faire ca, de facon propre.
 
Merci de vos réponses & de vos conseils
 
 
 
 
Donc ma question est :
 
En Vbs comment coder ca en gros?
pour faire appel aux commandes dos et faire un truc qui tourne en boucle et surtout pour que ping renvoie qq chose?!


Message édité par tekilaz le 02-11-2003 à 20:00:51

---------------
=-Galerie Photo=- // Tekilaz :: Trop bon, Trop con... // FEEDB4CK
Reply

Marsh Posté le 02-11-2003 à 19:37:14   

Reply

Marsh Posté le 02-11-2003 à 20:57:49    

up


---------------
=-Galerie Photo=- // Tekilaz :: Trop bon, Trop con... // FEEDB4CK
Reply

Marsh Posté le 02-11-2003 à 21:37:20    

bon je fais ça a la vas vite donc je sur pas sur du resultat
 
je le fais en wsh/wmi et je pense que ça doit marché

Citation :


server="www.google.fr"
 
set ObjPing=GetObject("winmgmts:{impersonationLevel=impersonate}" ).ExecQuery("select_
&" * from win32_PingStatus where address=' " & server & " '" )
 
set sh=CreateObject("Wscript.Shell" )
 
for each obj in ObjPing
if obj.StatusCode = 0 or not IsNull(obj.StatusCode) then
 
Wscript.sleep 30000
else
 
sh.Run "ipconfig /renew"
 
end if  
next


 
ps: oublie pas de l'enregistré sous un *.vbs


Message édité par Zobman le 02-11-2003 à 21:42:19

---------------
La réalité n'est qu'une illusion créée par le manque de Drogue....
Reply

Marsh Posté le 02-11-2003 à 21:40:37    

bon je viens de tester et ça marche (g mis des msgbox a la place des vraie commande dans le if
par contre je suis pas sur que la commande ipconfig /renew existe


---------------
La réalité n'est qu'une illusion créée par le manque de Drogue....
Reply

Marsh Posté le 02-11-2003 à 21:43:32    

Zobman a écrit :

bon je viens de tester et ça marche (g mis des msgbox a la place des vraie commande dans le if
par contre je suis pas sur que la commande ipconfig /renew existe


 
 :ouch:  
merci beaucoup  :love:  
 
si la commande ipconfig /renew permet de renouveller le bail du DHCP
et la commande ipconfig /release permet de cloturer le bail
 
regarde ipconfig sous Dos


---------------
=-Galerie Photo=- // Tekilaz :: Trop bon, Trop con... // FEEDB4CK
Reply

Marsh Posté le 02-11-2003 à 21:51:21    

par contre j'ai pas vraiment compris qd tu dis apres le fin si "retournez au debut":??:


---------------
La réalité n'est qu'une illusion créée par le manque de Drogue....
Reply

Marsh Posté le 02-11-2003 à 22:13:14    

bein c est un script qui doit s exécuter en boucle
car des que je suis déco il faut que le script agisse
donc faut qu il tourne tous le temps quoi


---------------
=-Galerie Photo=- // Tekilaz :: Trop bon, Trop con... // FEEDB4CK
Reply

Marsh Posté le 02-11-2003 à 22:14:00    

Sinon j ai fait un copier coller de ce que tu m as fait dans un .vbs et ca passe pas chez moi il dit qu il manque une parenthese ligne 3 :?


---------------
=-Galerie Photo=- // Tekilaz :: Trop bon, Trop con... // FEEDB4CK
Reply

Marsh Posté le 02-11-2003 à 22:49:59    

dans ce cas
transforme la ligne 2 et 3 en une seul ligne
 
comme ça :
 
set ObjPing=GetObject("winmgmts:{impersonationLevel=impersonate}" ).ExecQuery("select * from win32_PingStatus where address='"&server&"'" )
 
tu met tout ça sur une seul ligne et ça devrait marcher


---------------
La réalité n'est qu'une illusion créée par le manque de Drogue....
Reply

Marsh Posté le 02-11-2003 à 22:53:21    

attend je suis bete , en fait j'avais oublie un guillement apres le select
donc ecrit ça:
select"_
 
++


---------------
La réalité n'est qu'une illusion créée par le manque de Drogue....
Reply

Marsh Posté le 02-11-2003 à 22:53:21   

Reply

Marsh Posté le 02-11-2003 à 23:00:57    

oki merci ;)
bonne nuit


---------------
=-Galerie Photo=- // Tekilaz :: Trop bon, Trop con... // FEEDB4CK
Reply

Sujets relatifs:

Leave a Replay

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