Discussion :

[gilouuuu]

bonjour a tous,

a l'aide d'autres personne, j'ai réalisé ce code pour éteindre un pc situé sur mon réseau. :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim cmd

Set cmd = CreateObject("WsCript.Shell" )
dim ok
ok = msgbox ("salut", vbYesNo)

If ok = vbYes Then
cmd.run "shutdown -m \\?..."

end if

il marche parfaitement a un point pret :

en effet, lorsque je l'execute, le pc semble s'éteindre, mais pas totalement : le pc n'est plus détectable sur le réseau, les disques durs n'ont plus l'air de tourné, et il m'est impossible de relancer la machine via WOL. bref la machine est dans le coma !

lorsque j'ai ce pc physiquement devant moi, je m'aperçois que l'écran n'affiche plus rien, que l'alimentation tourne toujours mais pas les DD, le voyant vers signalant que le pc est toujours allumé, est bien allumé, contrairement au voyant rouge qui est éteint. Je remarque aussi que si j'appuis sur le bouton d'allumage de l'ordi d'une simple pression (pas une pression longue comme lorsque le pc plante), le pc s'éteint. Savez vous pourquoi il ne s'éteint pas entierement ?

[Invité]

Remplace le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

shutdown -m

par un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

shutdown -f -s

[Melem]

L'option -m est nécessaire pour spécifier le nom de la machine à éteindre. Il faut évidemment ajouter -f -s, sans enlever -m. shutdown /? pour avoir de l'aide ...