FAQ VBScriptConsultez toutes les FAQ

1
2
3
4
5
6
Set objWMI = GetObject("winmgmts:root\cimv2") 
sQuery = "Select * from Win32_process" 
For Each oproc In objWMI.execquery(sQuery) 
    Wscript.echo oproc.Name & " = " & oproc.ExecutablePath 
Next 
Set objWMI = Nothing

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
' Constantes pour SetPriority 
  Const NORMAL = 32 ' ou &H20 
  Const LOW = 64 ' ou &H40 
  Const HIGH = 128 ' ou &H80 
  Const REALTIME = 256 ' &H100 
  Const BELOW_NORMAL = 16384 ' &H4000 
  Const ABOVE_NORMAL = 32768 ' &H8000 
strComputer = "."  
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")  
' Recherche du handle du processus 
Set colProcesses = objWMIService.ExecQuery("SELECT * FROM Win32_Process") 
  For Each Process In colProcesses 
   If LCase(Process.Name) = "wordpad.exe" Then 
     intHandle = Process.Handle 
     Exit For 
     End If 
  Next 
' Attribution de la nouvelle priorité 
Set objShare = objWMIService.Get("Win32_Process.Handle='" & intHandle & "'") 
Set objInParam = objShare.Methods_("SetPriority").inParameters.SpawnInstance_() 
objInParam.Properties_.Item("Priority") =  ABOVE_NORMAL  ' Priorité supérieure à la normale. 
Set objOutParams = objWMIService.ExecMethod("Win32_Process.Handle='" & intHandle & "'", "SetPriority", objInParam) 
' Si tout se passe correctement (valeur de retour = 0), pas de message 
If objOutParams.ReturnValue <> 0 Then MsgBox "ReturnValue: " & objOutParams.ReturnValue

1
2
3
4
5
6
7
Const LOW = &H40 ' priorité basse 
strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 
Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process Where Name = 'Wordpad.exe'") 
For Each objProcess in colProcesses 
    objProcess.SetPriority(LOW)  
Next