Enfin un vbs pour eteindre/redemarrer windows xp qui marche...

Soyez le premier à donner votre avis sur cette source.

Snippet vu 33 800 fois - Téléchargée 31 fois

Contenu du snippet

Eh oui, nombreux ont été les essais de source pour éteindre/redémarrer xp! Mais jusqu'à présent, toute celle que j'avais tester ne marchais pas extrèmement bien... Et c'est pour cela que j'ai mis cette source qui, enfin, marche sous windaube xp! ( pour les autres je n'en ai aucune idée mais j'éspère que vous me dirrez...)

Source / Exemple :


' Pour éteindre :

strComputer
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}\\" & strComputer & "\root\cimv2")

Set colOperatingSystems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")

For Each objOperatingSystem in colOperatingSystems
    objOperatingSystem.Win32Shutdown(1)
Next

' Pour redémarrer :

strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate,(Shutdown)}!\\" & strComputer & "\root\cimv2")

Set colOperatingSystems = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")

For Each objOperatingSystem in colOperatingSystems
    objOperatingSystem.Reboot()
Next

Conclusion :


Et voila...
Je suis sur que le redémarrage marche, mais pour l'autre, je vous laisse voir et me corriger...
Par la suite, je rajouterai peut-être quelques codes optionnels ( du genre supprimer un session...etc... )
;)

A voir également

Ajouter un commentaire Commentaires
econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Modérateur Dernière intervention 23 décembre 2008 23
27 mars 2006 à 22:27
Ca ne se télécharge pas, il n'y a pas de ZIP. Il faut recopier le code présenté par tekila_bandita dans ton application.
cs_khouda Messages postés 4 Date d'inscription mardi 21 mars 2006 Statut Membre Dernière intervention 3 avril 2006
27 mars 2006 à 22:15
li ya quilqune qu me donner le ien pour telecharger cxe projet la
tH3 GuItArIsTe 666 Messages postés 58 Date d'inscription jeudi 12 mai 2005 Statut Membre Dernière intervention 26 août 2006
21 août 2005 à 14:41
SLT

merci bocoup mais esque on peut compiler un vb avec un vbs ?? et kel est l'extention pour le VB ??

MERCI

+++SLT+++
tekila_bandita Messages postés 248 Date d'inscription mercredi 15 juin 2005 Statut Membre Dernière intervention 15 mars 2007 33
21 août 2005 à 13:49
Pour le timer :
wscript.sleep 1000 =timer pour une seconde
wscript.sleep 1000*60*8 =timer pour 8 minute...
Sinon, je ne pense pas qu'il soit possible de générer une barre de chargement en vbs, tu peux surement en vb, mais pas en vbs...
tH3 GuItArIsTe 666 Messages postés 58 Date d'inscription jeudi 12 mai 2005 Statut Membre Dernière intervention 26 août 2006
19 août 2005 à 15:23
a oui mince et joubliais

eske c possible de faire une barre de chargement pour simuler le chargement du formatage, en vbs ??
en faite je voudrais le code chargement juste après le msgbox suivant :
msgbox "votre ordinateur a rencontré un probleme avec ce site",VBCritical,"error 134"
if(MsgBox ("VOULEZ VOUS FORMATER VOTRE ORDINATEUR ?" ,vbYesNo) = vbYes) Then

voila donc si vous pouviez repondre a ce message et a celui juste au dessus ce serait pas mal !!

MERCI BOCOUP

+++SLT+++
Afficher les 19 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.