Exécuter une commande à distance sur un serveur

Option Explicit

'Code pour exécuter le process à distance trouvé à la base sur
'http://www.computerperformance.co.uk/vbscript/wmi_process_start.htm

Dim Position
Dim strComputer
Dim objWMIService, objProcess, objProgram, strExe, WSHShell

strComputer = (InputBox(" ComputerName to Run Script","Computer Name"))

set objWMIService = getobject("winmgmts://" & strComputer & "/root/cimv2")

'Définition de la commande à passer sur la machine distante
strExe = "cmd.exe /C dir %SYSTEMDRIVE%\*.* /s > %SYSTEMDRIVE%\DirCommandResult.txt"
'strExe = "cmd.exe /C " & SystemDriveLetter & ":\" & NomFichierBat

Set objProcess = objWMIService.Get("Win32_Process")
Set objProgram = objProcess.Methods_("Create").InParameters.SpawnInstance_
objProgram.CommandLine = strExe

'Execute the program now at the command line.
Set WSHShell = objWMIService.ExecMethod("Win32_Process", "Create", objProgram)
'Wscript.sleep 7000

Set objProcess = Nothing
Set objProgram = Nothing
Set WSHShell = Nothing

WSCript.Quit