[VBS] infos sur pc distant avec WMI

infos sur pc distant avec WMI [VBS] - VB/VBA/VBS - Programmation

Marsh Posté le 29-05-2007 à 16:20:31    

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 :
  1. Option Explicit
  2. Dim objWMIService, objProcess
  3. Dim strShell, objProgram, strComputer, strExe, strInput
  4. strExe = "Calc.exe"
  5. ' Input Box to get name of machine to run the process
  6. Do
  7. strComputer = (InputBox(" ComputerName to Run Script",_
  8. "Computer Name" ))
  9. If strComputer <> "" Then
  10. strInput = True
  11. End if
  12. Loop until strInput = True
  14. ' Connect to WMI
  15. set objWMIService = getobject("winmgmts://"_
  16. & strComputer & "/root/cimv2" )
  17. ' Obtain the Win32_Process class of object.
  18. Set objProcess = objWMIService.Get("Win32_Process" )
  19. Set objProgram = objProcess.Methods_( _
  20. "Create" ).InParameters.SpawnInstance_
  21. objProgram.CommandLine = strExe
  23. 'Execute the program now at the command line.
  24. Set strShell = objWMIService.ExecMethod( _
  25. "Win32_Process", "Create", objProgram)
  27. WScript.echo "Created: " & strExe & " on " & strComputer
  28. WSCript.Quit
  29. ' 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.
 

Reply

Marsh Posté le 29-05-2007 à 16:20:31   

Reply

Marsh Posté le 04-06-2007 à 22:19:09    

Ca ressemble à un problème de DCOM pour moi.
Un firewall sur le poste distant??

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed