Rechercher si un processus bien précis s'éxecute sur une machine distante

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 805 fois - Téléchargée 9 fois

Contenu du snippet

Function SearchProcess(ByVal sComputerName As String, sProcessName As String) As Boolean 
    On Local Error Resume Next 
    Dim WMI_Obj As Object, WMI_ObjProps As Object, ObjClsItem As Object 
    Set WMI_Obj = GetObject("winmgmts:\\" & sComputerName & "\root\cimv2") 
    Set WMI_ObjProps = WMI_Obj.ExecQuery("SELECT * FROM Win32_Process", , 48) 
    If InStrRev(sProcessName, ".exe") = 0 Then sProcessName = sProcessName & ".exe" 
    For Each ObjClsItem In WMI_ObjProps 
        If ObjClsItem.Caption = sProcessName Then 
            SearchProcess = True 
        End If 
    Next ObjClsItem 
    Set ObjClsItem = Nothing 
    Set WMI_ObjProps = Nothing 
    Set WMI_Obj = Nothing 
 
End Function 

Compatibilité : VBA

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.