shutdown poste distant - VB/VBA/VBS - Programmation
MarshPosté le 21-10-2008 à 11:34:25
Bonjour
Je suis newbies en scripting et j'aurais souhaité avoir un script qui me redémarre un serveur à distance.J'essaye celui-ci mais ça ne marche pas...... je pense que ça viens d'un pb d'authentification sur le poste distant ? Si un pro pouvait m'aider
"' Windows Script Host ' Shutdown.vbs 'force la déclaration des variables Option Explicit
'variables Dim objShell, strComputer, strInput Dim strShutdown Do 'choix du serveur strComputer = (InputBox(" ComputerName to shutdown", "Computer Name") 'si choix serveur ok If strComputer <> "" Then strInput = True End if 'boucle jusqu'à entrer nom serveur Loop until strInput = True 'commande à lancer strShutdown ="shutdown /r /f /m " & strComputer 'creation de l'instance shell set objShell = CreateObject("WScript.Shell" 'execution objShell.Run strShutdown Wscript.Quit
Marsh Posté le 21-10-2008 à 11:34:25
Bonjour
Je suis newbies en scripting et j'aurais souhaité avoir un script qui me redémarre un serveur à distance.J'essaye celui-ci mais ça ne marche pas......
je pense que ça viens d'un pb d'authentification sur le poste distant ?
Si un pro pouvait m'aider
"' Windows Script Host
' Shutdown.vbs
'force la déclaration des variables
Option Explicit
'variables
Dim objShell, strComputer, strInput
Dim strShutdown
Do
'choix du serveur
strComputer = (InputBox(" ComputerName to shutdown", "Computer Name")
'si choix serveur ok
If strComputer <> "" Then
strInput = True
End if
'boucle jusqu'à entrer nom serveur
Loop until strInput = True
'commande à lancer
strShutdown ="shutdown /r /f /m " & strComputer
'creation de l'instance shell
set objShell = CreateObject("WScript.Shell"
'execution
objShell.Run strShutdown
Wscript.Quit
Message édité par buck94 le 21-10-2008 à 11:35:03
---------------
mon feedback