Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
~Jean-Marc~ [MVP]
Salutations *phenix* ! Dans http://groups.google.com/groups?threadmè tu nous disais :
Comment vérifie t'on qu'une application est ouverte ou fermée en script vbs ou wmi? Merci d'avance
Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!.rootcimv2")
Set colProcesses = objWMIService.ExecQuery _ ("Select * from Win32_Process Where Name = 'winword.exe'")
if colProcesses.count > 0 then _ MsgBox "Word est ouvert"
@+
-- ~Jean-Marc~ MSAE & MVP Windows XP Fr M'écrire : http://msmvps.com/docxp/contact.aspx - http://docxp.mvps.org - http://msmvps.com/docxp/ - Aide en DIRECT sur Internet : http://communautes-ms.akro-net.org/
Salutations *phenix* !
Dans http://groups.google.com/groups?threadmè039191-9B90-458D-824C-A3DF5675B14B@microsoft.com
tu nous disais :
Comment vérifie t'on qu'une application est ouverte ou fermée en
script vbs ou wmi?
Merci d'avance
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\.rootcimv2")
Set colProcesses = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'winword.exe'")
if colProcesses.count > 0 then _
MsgBox "Word est ouvert"
@+
--
~Jean-Marc~ MSAE & MVP Windows XP Fr
M'écrire : http://msmvps.com/docxp/contact.aspx
- http://docxp.mvps.org - http://msmvps.com/docxp/ -
Aide en DIRECT sur Internet : http://communautes-ms.akro-net.org/
Salutations *phenix* ! Dans http://groups.google.com/groups?threadmè tu nous disais :
Comment vérifie t'on qu'une application est ouverte ou fermée en script vbs ou wmi? Merci d'avance
Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!.rootcimv2")
Set colProcesses = objWMIService.ExecQuery _ ("Select * from Win32_Process Where Name = 'winword.exe'")
if colProcesses.count > 0 then _ MsgBox "Word est ouvert"
@+
-- ~Jean-Marc~ MSAE & MVP Windows XP Fr M'écrire : http://msmvps.com/docxp/contact.aspx - http://docxp.mvps.org - http://msmvps.com/docxp/ - Aide en DIRECT sur Internet : http://communautes-ms.akro-net.org/