lancer un script ou une appli sur un pc sur le reseau local
alpia_
Posté le 09-05-2005 à 09:29:54
Salut à tous!
je voudrais savoir comment faire pour lancer, depuis mon ordinateur, un script ou une appli sur un autre ordinateur sur mon reseau local? Merciii
Salut à tous!
je voudrais savoir comment faire pour lancer, depuis mon ordinateur, un script ou une appli sur un autre ordinateur sur mon reseau local? Merciii
J'ai la réponse!
'Variable pour rendre la fenetre Affiché
Const HIDDEN_WINDOW = 1
'L'ordinateur cible
strComputer = "ip dla machine"
'Connexion au service WMI et initialisation de ProcessStartup
Set objStartup = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2:Win32_ProcessStartup" )
'Connexion au service WMI et initialisation de Process
Set objProcess = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2:Win32_Process" )
'Pour afficher la fenêtre
Set objConfig = objStartup.SpawnInstance_
objConfig.ShowWindow = HIDDEN_WINDOW