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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 33 721 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
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
22
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.
Messages postés
4
Date d'inscription
mardi 21 mars 2006
Statut
Membre
Dernière intervention
3 avril 2006

li ya quilqune qu me donner le ien pour telecharger cxe projet la
Messages postés
58
Date d'inscription
jeudi 12 mai 2005
Statut
Membre
Dernière intervention
26 août 2006

SLT

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

MERCI

+++SLT+++
Messages postés
248
Date d'inscription
mercredi 15 juin 2005
Statut
Membre
Dernière intervention
15 mars 2007
32
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...
Messages postés
58
Date d'inscription
jeudi 12 mai 2005
Statut
Membre
Dernière intervention
26 août 2006

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.