lancer un script ou une appli sur un pc sur le reseau local

lancer un script ou une appli sur un pc sur le reseau local - VB/VBA/VBS - Programmation

Marsh 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? :pt1cable:  
Merciii  :jap:


Message édité par alpia_ le 09-05-2005 à 09:55:37
Reply

Marsh Posté le 09-05-2005 à 09:29:54   

Reply

Marsh Posté le 09-05-2005 à 11:56:14    

alpia_ a écrit :

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? :pt1cable:  
Merciii  :jap:


 
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
 
errReturn = objProcess.Create("notepad.exe", null, objConfig, intProcessID)
 
Merci qui? merci moi!  
ok vous vous en foutez

Reply

Marsh Posté le 21-10-2006 à 12:43:37    

Bonjour,
 
 
Comment faire pour une liste de machine (liste dans un fichier txt)? Quelqu'un pourrait-il ajouter une petite boucle.
 
Je sais que c'est pas bien compliqué mais j'ai pas trop le temps de chercher en ce moment :)

Reply

Sujets relatifs:

Leave a Replay

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