Rechercher si un processus bien précis s'éxecute sur une machine distante
Soyez le premier à donner votre avis sur cette source.
Snippet vu 4 199 fois - Téléchargée 11 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
- Rechercher si un processus bien précis s'éxecute sur une machine distante
- Turbo virtual machine executable - Forum Visual Basic 6
- Processus tableur ✓ - Forum C# / .NET
- Code machine distributeur - Forum C / C++ / C++.NET
- Code vba access pour rechercher un enregistrement - Forum Visual Basic
- Alternative processus excel - Forum PHP
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.