Vérification un processus en vbs en utilisant un XML

Bonjour,
je début sous VBS et j'aimerais savoir comment faire en utilisant un VBS vérifier si le process est lancé " le vbs doit recupérer le nom du process depuis un XML".
j'ai fais ça mais , sans resultat :

Code:

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
 
 
'****************** Chargement du XML *******************************
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
xmlDoc.async = "false"
xmlDoc.load("Services.xml")
     Set oElement = xmlDoc.documentElement
 
'****************** Fonction d'exploration du XML *******************
Function xml_reader()
 
    If Not oElement Is Nothing Then
        For Each x In oElement.getElementsByTagName("Nom_Serveur")
                For Each y In oElement.getElementsByTagName("Nom_Appli")
                      Set objWMI = GetObject("winmgmts:root\cimv2")
                        sQuery = "Select * from Win32_process where name=&y "
                        For Each oproc In objWMI.execquery(sQuery)
 
                        Next
                        Set objWMI = Nothing
                Next
 
        Next
    End If
 
End Function
 
 
' ****************** PROGRAMME PRINCIPAL **********************
 
xml_reader()