Vbscript : gestion de process et récupération du usernameRésolu

Question

Comme dit dans le titre, je cherche &#224; g&#233;rer des process sur mon ordi.
Le probl&#232;me est que 2 process ont le m&#234;me nom : msiexec.exe

Les seules diff&#233;rences entre ces deux process sont : le PID et le UserID du Process : l'un est system l'autre c'est moi.

Je cherche donc &#224; g&#233;rer ces process &#224; partir du nom de l'utilisateurs
du process. Pour cel&#224; je compare le GetOwner du process &#224; la variable
d'environnement %username%.

Le principal probl&#232;me est que je ne r&#233;cup&#232;re pas le %username% car "%" n'est pas trop appr&#233;ci&#233; par mon moteur VB .

Voici mon code :



'---------------------------------------- Temporisation des fen&#234;tres ----------------------------------------------





'definition de requ&#234;te wmi

sComputer = "." ' use "." for local computer

Set oWmi = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\" _

& sComputer & "\root\cimv2")



'Definition des objets vbs

Set WshShell = CreateObject("WScript.Shell")



WshShell.exec(CHR(34) & "C:/MySQL_4.1_Setup.exe" & CHR(34))





  do

    Set colProcessList = oWmi.ExecQuery _

    ("Select * from Win32_Process Where Name = 'msiexec.exe'")

    For Each objProcess in colProcessList

        colProperties = objProcess.GetOwner(strNameOfUser,strUserDomain)

        If StrNameOfUser = %username% Then wscript.sleep(500)

    Next

    wscript.sleep(1000)

  loop while (colProcessList.count >= 2)



  WshShell.Run("notepad.exe")

'--------------------------------------------------------------------------------





voil&#224; voil&#224;

cs_wape · Accepted Answer

Essaye &#233;ventuellement avec :

If StrNameOfUser = WshShell.ExpandEnvironmentStrings("%username%") Then wscript.sleep(500)

wape

Vbscript : gestion de process et récupération du username

1 réponse

Discussions similaires