Discussion :

[hebh]

Bonjour,


Je cherche un code qui me permettra d’arrêter un processus (MSACCESS.EXE) s'il existe.
Après une recherche sur le net j'ai trouvé ce code, mais malheureusement ça marche pas avec WINDOWS 7.
Merci de m'aider afain d'adapter ce code ou m'orienter vers un autre.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
    ("Select * from Win32_Process Where Name = 'excel.exe'")
For Each objProcess in colProcessList
    objProcess.Terminate()
Next
 
Set objWMIService = Nothing
Set colProcessList = Nothing

[Cachlab]

Bonjour,

Qu'est-ce que tu entends par "ça marche pas avec WINDOWS 7" ?
Le script n'a aucun effet ? Tu obtiens un message d'erreur ?

Merci de ta précision.

[Cachlab]

Anyway, tu peux essayer ça ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Set WshShell = CreateObject("WScript.Shell")
strComputer = "."
Set objWMIService = GetObject ("winmgmts:\\" & strComputer & "\root\cimv2")
 
Set colItems = objWMIService.ExecQuery("Select * From Win32_ComputerSystem")
For Each objItem in colItems
        strCurrentUserName = objItem.UserName
Next
 
Set colProcessList = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = 'access.exe'")
For Each objProcess in colProcessList
        colProperties = objProcess.GetOwner(strNameOfUser,strUserDomain)
        If strUserDomain & "\" & strNameOfUser = strCurrentUserName then
                objProcess.Terminate()
        end if
Next

[hariman]

Bonjour,

Tu veux arrêter le processus "msaccess.exe" ou "excel.exe" ?
La requête ne devrait-il pas être comme ceci ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    ...
    ("Select * from Win32_Process Where Name = 'msaccess.exe'")
    ...

[hackoofr]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Const ForAppending=8
  'Vérifie si Wscript est en cours d'exécution, on quitte, sinon on lance le script
  If CheckIfWscriptIsRunning Then Wscript.Quit
  WaitAndLoopForApp(10) ' 10 est le Nombre de secondes d'attente pour rechercher une ' application à terminer. On peut augmenter cette durée.
Sub FindApp(strApp)
  Set fso = Wscript.CreateObject("Scripting.FilesystemObject")
  set fich = fso.OpenTextFile("C:\ProcessusTermines.log",ForAppending,true) ' Fichier journal
  Set SRVC = GetObject("winmgmts:\\")
  Set ObjServ = SRVC.InstancesOf("Win32_Process")
  For Each myObj In ObjServ
     If LCase(myObj.Name) = LCase(strApp) Then
        'Ecriture dans le fichier journal personnalisé
        Fich.Write myObj.Name +" est en cours d'exécution mais il a été terminé à : " & Now & vbnewline
        ' On ferme l'application et on sort de la boucle
        IF Not (myObj Is Nothing) Then myObj.Terminate() 
        Exit For
     End If
  Next
  Set ObjServ=Nothing
  Set SRVC = Nothing
End Sub
 
Sub WaitAndLoopForApp(ByVal Sec)
  start=timer
  do
   i=start+timer
 loop until i-start>=Sec ' On attend un nombre (sec) de secondes pour agir
 If i-Start>=Sec then 
  Do
    FindApp("msaccess.exe")'on cherche le processus msaccess.exe et on l'arrête
    'FindApp("calc.exe")'on cherche le processus calc.exe et on l'arrête
    'FindApp("FireFox.exe")  'on cherche le processus FireFox.exe et on l'arrête
    'FindApp("chrome.exe") 'on cherche le processus chrome.exe et on l'arrête
    'FindApp("Safari.exe") 'on cherche le processus safari.exe et on l'arrête
    Wscript.Sleep 10000
    Set WS=CreateObject("Wscript.Shell")
    Com = "%SystemRoot%\System32\CScript.exe " & Wscript.ScriptFullName
    Result=WS.Run(Com,0,True)
  Loop
 End If
End Sub
 
Function CheckIfWscriptIsRunning()  ' Vérifie si Wscript tourne ou non
  Set SRVC = GetObject("winmgmts:\\")
  Set ObjServ = SRVC.InstancesOf("Win32_Process")
  s=""
  For Each myObj In ObjServ
     If LCase(myObj.Name) = "wscript.exe" then
       s= s+ myObj.name + VbCrLf
     End If
    OK=InsTr(1,s,VbCrLf+"wscript.exe",1) '>=1
  Next
  CheckIfWscriptIsRunning=OK
End Function