Bonjour tout le monde,
Je cherche a faire un script qui lance calc.exe (ou autre) sur un pc de mon réseau via wmi, voici ce que j'ai recupéré sur le net
Code :
- Option Explicit
- Dim objWMIService, objProcess
- Dim strShell, objProgram, strComputer, strExe, strInput
- strExe = "Calc.exe"
- ' Input Box to get name of machine to run the process
- Do
- strComputer = (InputBox(" ComputerName to Run Script",_
- "Computer Name" ))
- If strComputer <> "" Then
- strInput = True
- End if
- Loop until strInput = True
- ' Connect to WMI
- set objWMIService = getobject("winmgmts://"_
- & strComputer & "/root/cimv2" )
- ' Obtain the Win32_Process class of object.
- 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 strShell = objWMIService.ExecMethod( _
- "Win32_Process", "Create", objProgram)
- WScript.echo "Created: " & strExe & " on " & strComputer
- WSCript.Quit
- ' End of Example of a Process VBScript
|
et j'obtiens une erreur :
Erreur d'execution Microsoft VBscript : le serveur distant n'existe pas ou n'est pas disponible: 'getobject'
Je n'arrive pas a m'en depatouiller, le service RPC est pourtant bien démarré sur la machine distante.
Si vous avez une piste, je suis preneur.
Merci d'avance.
