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