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

Commenter

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

S'inscrire maintenant

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.

Du même auteur (tekila_bandita)