récupérer le PID d'un processus

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : récupérer le PID d'un processus

FAT12

Bonjour,

Je souhaite lancer un prg avec VB sous un user et récupérer le PID du processus.
J'ai déja testé le code suivant:

Code :

Set WshShell = CreateObject("WScript.Shell" )
Set oExec = WshShell.Exec(applicationName)
Wscript.Echo "PID de l'aapli lancée: " & oExec.ProcessID

mais je ne peux pas spécifier le user.

Ensuite j'ai utilisé ceci:

Code :

RunAppUser=WshShell.Run("runas /user:" & user & " " & CHR(34) & applicationName & CHR(34), 2, FALSE)

mais la je n'arrive pas à récupérer le PID

J'ai également trouvé ceci:

Code :

Const CommandLine = "notepad.exe"
Const Computer = "192.168.1.1"
Const UserName = "EU\st09346"
Const Password = "nounou"
Dim lngRet
lngRet = CreateProcess(CommandLine, Computer, UserName, Password)
Function CreateProcess(szCommandLine, szComputer, szUserName, szPassword)
Dim objProcesses
Dim objLocator
Dim objService
Dim lngRet
Dim lngPID
Dim MesStr
Set WshNetwork = WScript.CreateObject("WScript.Network" )
WScript.Echo "Domain = " & WshNetwork.UserDomain
WScript.Echo "Computer Name = " & WshNetwork.ComputerName
WScript.Echo "User Name = " & WshNetwork.UserName
Set objLocator = CreateObject("WbemScripting.SWbemLocator" )
Set objService = objLocator.ConnectServer(WshNetwork.ComputerName, , szUserName, szPassword)
Set objService = objLocator.ConnectServer(, , szUserName, szPassword)
Set objProcesses = objService.Get("Win32_Process" )
lngRet = objProcesses.Create(szCommandLine, Null, Null, lngPID)
Set objProcesses = Nothing
Set objService = Nothing
Set objLocator = Nothing
CreateProcess = lngPID
End Function

mais la la ligne

Code :

Set objService = objLocator.ConnectServer(WshNetwork.ComputerName, , szUserName, szPassword)

provoque le message suivant:

les références utilisateurs ne peuve,nt pas être utilisées pour des connexions locales

J'ai la containte suivante: je nepeux pas utilisé le nom de l'application pour rechercher son PID (en listant ts les processus et en recuperant leur nom puis en le comparant avec le nom du programme lancé).

Voila j'èspère avoir été assz clair.

Merci pour vos réponses.

Publicité

TotalRecall

VB ou VBA ?
je n'ai pas tout lu mais il me semble qu'il suffit d'utiliser CreateProcess pour récupérer le PID (et terminateprocess quand tu n'en as plsu besoin)...

(edit : je voulais dire "pour lancer l'application tout en récupérant le PID en même temps" )

Message édité par TotalRecall le 29-06-2005 à 09:43:58

FAT12

Oui mais comment faire pour récupéere le PID du processus (sans faire de recherche sur le nom) ?

TotalRecall

http://www.google.fr/search?q=createprocess+get+pid ?

Message édité par TotalRecall le 29-06-2005 à 10:49:07

FAT12

merci mais j'ai egalement une contrainte, celle de lancer le process sous un user. J'ai vu qu'il existe un createProcessAsUser mais je ne sais pas si je peux recuperer le pid avec.

TotalRecall

http://www.google.fr/search?q=crea [...] er+get+pid ?

FAT12

Excuse moi mais je n'ai pas trouve d'exemple en en vbscript qui reponde a mon besoin

FORUM HardWare.fr

Programmation

VB/VBA/VBS

récupérer le PID d'un processus

Sujets relatifs
récupérer les n premiers caractères d'un fichier	récupérer un fichier pour l'insérer dans une une BD
Récupérer tous les champs d'un formulaire	[VBS]Récuperer date Windows2000
Récupérer valeur liste déroulante...???	Tuer 1 Processus - AIDE SVP
[C#] recuperer son adresse ip	[C] [réglé] Récupérer le contenu d'un fichier texte ?
[ACCESS] recupérer champ saisie entre 2 formulaire	recuperer les informations d un autre classeur
Plus de sujets relatifs à : récupérer le PID d'un processus

Page générée en 0.077 secondes