Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1425 connectés 

  FORUM HardWare.fr
  Programmation
  Divers

  [VBS] Besoin d un petit coup de main

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[VBS] Besoin d un petit coup de main

n°556987
tekilaz
Posté le 02-11-2003 à 19:37:14  profilanswer
 

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
mood
Publicité
Posté le 02-11-2003 à 19:37:14  profilanswer
 

n°557099
tekilaz
Posté le 02-11-2003 à 20:57:49  profilanswer
 

up


---------------
=-Galerie Photo=- // Tekilaz :: Trop bon, Trop con... // FEEDB4CK
n°557121
Zobman
hek het a shroot pill!
Posté le 02-11-2003 à 21:37:20  profilanswer
 

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....
n°557123
Zobman
hek het a shroot pill!
Posté le 02-11-2003 à 21:40:37  profilanswer
 

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....
n°557125
tekilaz
Posté le 02-11-2003 à 21:43:32  profilanswer
 

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
n°557130
Zobman
hek het a shroot pill!
Posté le 02-11-2003 à 21:51:21  profilanswer
 

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....
n°557149
tekilaz
Posté le 02-11-2003 à 22:13:14  profilanswer
 

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
n°557151
tekilaz
Posté le 02-11-2003 à 22:14:00  profilanswer
 

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
n°557165
Zobman
hek het a shroot pill!
Posté le 02-11-2003 à 22:49:59  profilanswer
 

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....
n°557168
Zobman
hek het a shroot pill!
Posté le 02-11-2003 à 22:53:21  profilanswer
 

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....
mood
Publicité
Posté le 02-11-2003 à 22:53:21  profilanswer
 

n°557176
tekilaz
Posté le 02-11-2003 à 23:00:57  profilanswer
 

oki merci ;)
bonne nuit


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

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  Divers

  [VBS] Besoin d un petit coup de main

 

Sujets relatifs
Exception in thread "main" org.omg.CORBA.COMM_FAILURE[URL] j'ai besoin d'un champ avec URL.
Petit souci avec DevC++template, main, visual C++
UTF8 et xhtml, besoin d'aide :)Petit pb :( [MàJ]
Mon prog ne rend plus la mainpetit probleme de break
Script shell Linux > petit prob avev expr[JavaScript] petit pb de syntaxe
Plus de sujets relatifs à : [VBS] Besoin d un petit coup de main


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR