Shutdown en vbscript

Fermé

seth - 1 sept. 2008 à 17:10
lsjduejd Messages postés 60 Date d'inscription mercredi 3 mars 2010 Statut Membre Dernière intervention 16 juillet 2012 - 8 mars 2010 à 18:00

Bonjour,je cherche depuis pas mal de temps un moyen d'éteindre mon pc en vbscript j'ai trouver pas mal de poste avec des codes mais je voudrais l'éteindre sans fenêtre qui me demande le mon du pc ou le temp avant l'extinction
je vous envoie un des code que j'ai trouver:

Dim objShell, strComputer, strInput
Dim strShutdown

Do
strComputer = (InputBox(" ComputerName to shutdown", "Computer Name"))
If strComputer <> "" Then
strInput = True
End if
Loop until strInput = True

strShutdown = "shutdown -s -t 0 -f -m \\" & strComputer

set objShell = CreateObject("WScript.Shell")

objShell.Run strShutdown

Wscript.Quit

je precise que je debute en vbscript
merci d'avance

A voir également:

Shutdown vbs
"Shutdown -i" ✓ - Forum Windows
Vbs windows - Guide
Shutdown - s - t 3600 ✓ - Forum Réseaux sociaux
Shutdown timer - Télécharger - Personnalisation
Vbs pause ✓ - Forum VB / VBA

13 réponses

Réponse 1 / 13

lsjduejd Messages postés 60 Date d'inscription mercredi 3 mars 2010 Statut Membre Dernière intervention 16 juillet 2012 15
8 mars 2010 à 18:00

Bonjour,

Je suis moi-même débutant en VBS, mais la réponse était dans le script...
Il demande le nom de l'ordinateur, il suffit d'annuler la demande en faisant "." :

Dim objShell, strComputer, strInput
Dim strShutdown

Do
strComputer = "."
If strComputer <> "" Then
strInput = True
End if
Loop until strInput = True

strShutdown = "shutdown -s -t 0 -f -m \\" & strComputer

set objShell = CreateObject("WScript.Shell")

objShell.Run strShutdown

Wscript.Quit

Discussions similaires

script (bloc note) shutdown pc

Usb device over current status detected

Fichiers batch pour eteindre le PC

shutdown

shutdown accès refusé

Tache planifiée: shutdown.exe -r -t 0

Discussions similaires

Newsletters