no save
Assistance
Achat
News

Forum | programmation
VBScript lancer une application à distance
zedtux, le mer. 22 sept. 2004 à 16:41:26
Salut à tous !

Je travail donc sur une réseau possédant un Domaine. Etant administrateur réseau, pour les priviliège, j'ai ce qu'il faut!

Maintenant mon but est de lancer par exemple NotPad sur une machine distante, tel un serveur.

J'utilise le VBScript et j'ai donc effectuer des recherches sur le net et voila le code que j'obtient :

'Variable pour rendre la fenetre Affiché
Const HIDDEN_WINDOW = 1

'L'ordinateur cible
strComputer = "."

'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)

If Error = 0 Then
Wscript.Echo "Ok " _
& intProcessID & "."
Else
Wscript.Echo "No" & _
Error & "."
End If


Ce code en local marche trés trés bien ! Mais si j'indique un poste autre, il me dis bien que le processus à été lancé, avec le handle.... mais rien a l'écran ! Ce pendant il est bien lancé dans les processus en faisant CRTL+ALT+SUPPR.

Je me demande d'ailleur si il est Freezé ... ?
Donc mon but c'est de réussir à afficher la fenêtre à l'écran, qu'il ne soit pas en caché !


Je vous remerci de votre attention !

Mon site sur la xbox : http://www.vsxbox.com


ADC
juin 07
Suivant
REPONSES
ADC
juin 07
de passage
juil. 07
blutch
mars 08
Version Web
Réalisé par RedShift
no save