http://motevich.blogspot.com/2007/11/execute-program-on-remote-computer.html
strComputer = "" strCommand = "notepad.exe"
Const INTERVALLE = "n" Const MINUTES = 1
Set objWMIService = GetObject ("winmgmts: \" & strComputer & "\ root \ cimv2") Set objScheduledJob = objWMIService.Get ("Win32_ScheduledJob") Set objSWbemDateTime = CreateObject ("WBemScripting.SWbemDateTime")
objSWbemDateTime.SetVarDate (DateAdd (, Minutes, maintenant())) errReturn = objScheduledJob.Create (strCommand, objSWbemDateTime .Valeur, Faux, 0, 0, vrai, intJobID)
Si errReturn = 0 Then Wscript.Echo "notepad.exe a commencé avec un processus ID:" & intJobID Else Wscript.Echo « notepad.exe n'a pas pu démarrer en raison d'une erreur : "& errReturn Fin Si
Chaîne strComputer =". " signifie « ordinateur local », sur l'ordinateur distant strComputer = « servername »
Merci pour votre réponse .. Excel doit être ouvert dans ce PC pour effectuer d'autres opérations. Existe-t-il un autre exe comme psexec pour exécuter une interface graphique Excel? – bala