Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Scripting Microsoft Cherche Script pour éteindre une machine distante

Cherche Script pour éteindre une machine distante

7 réponses
Avatar
news.microsoft.com
Bonjour,

Je suis à la recherche d'un script vbs qui :
- teste les machines du réseau qui sont allumées et le cas échéant
procède à leur arrêt.
L'idée est de placer ce script dans le planificateur des tâches sur un
serveur.
Ainsi, à une heure précise de la nuit, le script procédera à l'arrêt
des machines restées allumées.
Je ne maîtrise pas le vbs, alors si vous avez une idée.
Par avance, merci.

Eric
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
MC
Bonsoir !

En invite de commande : shutdown /?
Lorsque la syntaxe sera au point, il suffira, sous VBS, d'un "Run"

--
@-salutations

Michel Claveau
Avatar
news.microsoft.com
Bonsoir !

En invite de commande : shutdown /?
Lorsque la syntaxe sera au point, il suffira, sous VBS, d'un "Run"


Oui en effet.
Seulement en invite de commande shutdown bloque sur une machine si
cette dernière est déjà éteinte. Elle ne passe pas à la suivante.
Il faut donc que je teste si la machine est allumée , si oui shutdown
se lance sinon on passe à la suivante.

Eric

Avatar
---DGI972---
Il se trouve que news.microsoft.com a formulé :
Bonsoir !

En invite de commande : shutdown /?
Lorsque la syntaxe sera au point, il suffira, sous VBS, d'un "Run"


Oui en effet.
Seulement en invite de commande shutdown bloque sur une machine si cette
dernière est déjà éteinte. Elle ne passe pas à la suivante.
Il faut donc que je teste si la machine est allumée , si oui shutdown se
lance sinon on passe à la suivante.

Eric


Bonjour,

2 VBScripts non testés sous le coude:

1/

' Shutdown.vbs, Version 1.00
' Shutdown Windows
'
' Adapted from a post by Alex Angelopoulos on www.developersdex.com
'
' Written by Rob van der Woude
' http://www.robvanderwoude.com

' Check command line parameters
Select Case WScript.Arguments.Count
Case 0
' Default is local computer if none specified
strComputer = "."
Case 1
Select Case WScript.Arguments(0)
' "?", "-?" or "/?" invoke online help
Case "?"
Syntax
Case "-?"
Syntax
Case "/?"
Syntax
Case Else
strComputer = WScript.Arguments(0)
End Select
Case Else
' More than 1 argument is not allowed
Syntax
End Select

' Connect to computer
Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//" & strComputer &
"/root/cimv2").ExecQuery("select * from Win32_OperatingSystem where
Primary=true")

' Actual shutdown
for each OpSys in OpSysSet
OpSys.Shutdown()
next

' Done
WScript.Quit(0)


Sub Syntax
msg = vbCrLf & "Shutdown.vbs, Version 1.00" & vbCrLf & _
"Shutdown any WMI enabled computer on the network." & vbCrLf & _
vbCrLf & "Usage: CSCRIPT SHUTDOWN.VBS [ computer_name ]" & _
vbCrLf & vbCrLf & _
"Where: " & Chr(34) & "computer_name" & Chr(34) & _
" is the name of the computer to be shut down" & vbCrLf & _
" (without leading backslashes)." & vbCrLf & vbCrLf & _
" Default is " & Chr(34) & "." & Chr(34) & _
" (the local computer)." & vbCrLf & vbCrLf & _
"Note: This script does NOT powerdown the computer." & _
vbCrLf & vbCrLf & _
"Written by Rob van der Woude" & vbCrLf & _
"http://www.robvanderwoude.com" & vbCrLf & vbCrLf & _
"Based on a post by Alex Angelopoulos on www.developersdex.com."
Wscript.Echo(msg)
Wscript.Quit(1)
End Sub

2/

' Copyright (c) Microsoft Corporation, All Rights Reserved
'***************************************************************************
'
' WMI Sample Script - REMOTE system shutdown (VBScript)
'
' Invokes the Shutdown method of the Win32_OperatingSystem class
' Fill in REMOTE_SYSTEM_NAME with the name of the remote system to
shutdown
' NOTE: You must have the RemoteShutdown privilege to successfully
invoke the Shutdown method
'
'***************************************************************************
Set OpSysSet =
GetObject("winmgmts:{(Debug,RemoteShutdown)}//REMOTE_SYSTEM_NAME/root/cimv2").ExecQuery("select
* from Win32_OperatingSystem where Primary=true")

for each OpSys in OpSysSet
OpSys.Shutdown()
next


Avatar
news.microsoft.com
Super, merci beaucoup.
Le premier script fonctionne bien (testé en local)
Par contre si veux l'utiliser pour mes machines distantes depuis mon
serveur, où dois-je renseigner les IP ou noms de mes postes ?
Merci

Eric




---DGI972--- a présenté l'énoncé suivant :
Il se trouve que news.microsoft.com a formulé :
Bonsoir !

En invite de commande : shutdown /?
Lorsque la syntaxe sera au point, il suffira, sous VBS, d'un "Run"


Oui en effet.
Seulement en invite de commande shutdown bloque sur une machine si cette
dernière est déjà éteinte. Elle ne passe pas à la suivante.
Il faut donc que je teste si la machine est allumée , si oui shutdown se
lance sinon on passe à la suivante.

Eric


Bonjour,

2 VBScripts non testés sous le coude:

1/

' Shutdown.vbs, Version 1.00
' Shutdown Windows
'
' Adapted from a post by Alex Angelopoulos on www.developersdex.com
'
' Written by Rob van der Woude
' http://www.robvanderwoude.com

' Check command line parameters
Select Case WScript.Arguments.Count
Case 0
' Default is local computer if none specified
strComputer = "."
Case 1
Select Case WScript.Arguments(0)
' "?", "-?" or "/?" invoke online help
Case "?"
Syntax
Case "-?"
Syntax
Case "/?"
Syntax
Case Else
strComputer = WScript.Arguments(0)
End Select
Case Else
' More than 1 argument is not allowed
Syntax
End Select

' Connect to computer
Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//" & strComputer &
"/root/cimv2").ExecQuery("select * from Win32_OperatingSystem where
Primary=true")

' Actual shutdown
for each OpSys in OpSysSet
OpSys.Shutdown()
next

' Done
WScript.Quit(0)


Sub Syntax
msg = vbCrLf & "Shutdown.vbs, Version 1.00" & vbCrLf & _
"Shutdown any WMI enabled computer on the network." & vbCrLf & _
vbCrLf & "Usage: CSCRIPT SHUTDOWN.VBS [ computer_name ]" & _
vbCrLf & vbCrLf & _
"Where: " & Chr(34) & "computer_name" & Chr(34) & _
" is the name of the computer to be shut down" & vbCrLf & _
" (without leading backslashes)." & vbCrLf & vbCrLf & _
" Default is " & Chr(34) & "." & Chr(34) & _
" (the local computer)." & vbCrLf & vbCrLf & _
"Note: This script does NOT powerdown the computer." & _
vbCrLf & vbCrLf & _
"Written by Rob van der Woude" & vbCrLf & _
"http://www.robvanderwoude.com" & vbCrLf & vbCrLf & _
"Based on a post by Alex Angelopoulos on www.developersdex.com."
Wscript.Echo(msg)
Wscript.Quit(1)
End Sub

2/

' Copyright (c) Microsoft Corporation, All Rights Reserved
'***************************************************************************
'
' WMI Sample Script - REMOTE system shutdown (VBScript)
'
' Invokes the Shutdown method of the Win32_OperatingSystem class
' Fill in REMOTE_SYSTEM_NAME with the name of the remote system to shutdown
' NOTE: You must have the RemoteShutdown privilege to successfully invoke
the Shutdown method
'
'***************************************************************************
Set OpSysSet =
GetObject("winmgmts:{(Debug,RemoteShutdown)}//REMOTE_SYSTEM_NAME/root/cimv2").ExecQuery("select
* from Win32_OperatingSystem where Primary=true")

for each OpSys in OpSysSet
OpSys.Shutdown()
next




Avatar
moi
Notre ami news.microsoft.com tapota :

Super, merci beaucoup.
Le premier script fonctionne bien (testé en local)
Par contre si veux l'utiliser pour mes machines distantes depuis mon
serveur, où dois-je renseigner les IP ou noms de mes postes ?


Bonjour,

Relis bien cette partie du script :

(...)
' Check command line parameters
Select Case WScript.Arguments.Count
Case 0
' Default is local computer if none specified
strComputer = "."
Case 1
Select Case WScript.Arguments(0)
' "?", "-?" or "/?" invoke online help
Case "?"
Syntax
Case "-?"
Syntax
Case "/?"
Syntax
Case Else
strComputer = WScript.Arguments(0)
End Select
Case Else
' More than 1 argument is not allowed
Syntax
End Select
(...)



Comme "tu le verras" là, le nom de la machine est transmis en argument
au script.
(Quand il n'y a pas d'argument, c'est la machine locale)

Mais on peut reprendre ce script en balayant un fichier texte
contenant la liste des machines visées, par exemple...

A+

HB


Avatar
jbongran
---DGI972--- wrote:
Il se trouve que news.microsoft.com a formulé :
Bonsoir !

En invite de commande : shutdown /?
Lorsque la syntaxe sera au point, il suffira, sous VBS, d'un "Run"


Oui en effet.
Seulement en invite de commande shutdown bloque sur une machine si
cette dernière est déjà éteinte. Elle ne passe pas à la suivante.
Il faut donc que je teste si la machine est allumée , si oui
shutdown se lance sinon on passe à la suivante.

Eric


Bonjour,

2 VBScripts non testés sous le coude:

1/

' Shutdown.vbs, Version 1.00
' Shutdown Windows
'
' Adapted from a post by Alex Angelopoulos on www.developersdex.com
'
' Written by Rob van der Woude
' http://www.robvanderwoude.com

' Check command line parameters
Select Case WScript.Arguments.Count
Case 0
' Default is local computer if none specified
strComputer = "."
Case 1
Select Case WScript.Arguments(0)
' "?", "-?" or "/?" invoke online help
Case "?"
Syntax
Case "-?"
Syntax
Case "/?"
Syntax
Case Else
strComputer = WScript.Arguments(0)
End Select
Case Else
' More than 1 argument is not allowed
Syntax
End Select
[...]

Vraiment pas beau ce select case ;-)
Select Case WScript.Arguments(0)
Case "?", "-?", "/?"
Syntax
Case Else
strComputer = WScript.Arguments(0)
End Select



Avatar
Michel Claveau
'soir !

Seulement en invite de commande shutdown bloque sur une machine si
cette dernière est déjà éteinte.


Chez moi, dans un batch, après l'échec, ça passe à la ligne suivante.

--
@-salutations

Michel Claveau