Discussion :

[ataya]

Bonjour,

Je souhaiterai savoir si mon camarade de travail à outlook démarré sur ca machine, par une fonction VBA bien sur.

je connais son adresse email, son user windows et son IP

PS: je n'espionne personne, c'est pour faire court et vous épargner le contexte de cette question

[Oliv-]

Bonjour,

ceci devrait faire l'affaire à condition d'avoir les droits suffisants et que le service soit démarré.

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
Sub test_OutlookProcessRunning()
ComputerName = InputBox("Quel PC tester ?")
MsgBox OutlookProcessRunning(ComputerName)
End Sub
 
Function OutlookProcessRunning(strComputer)
 
OutlookProcessRunning = False
    On Error Resume Next
 
    Dim objWMIService
    Dim colProcessList
    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process Where Name = 'OUTLOOK.EXE'")
    If colProcessList.Count = 0 Then
        OutlookProcessRunning = False
        Else: OutlookProcessRunning = True
    End If
 
    Set objWMIService = Nothing
    Set colProcessList = Nothing
    Set objProcess = Nothing
 
 
End Function

[ataya]

merci pour ta réponse.

J'ai essayé et lorsque je teste ma propre machine (celle qui execute le code), cela fonctionne.
En revanche si je teste une autre machine le GetObject ne retourne rien.

Je ne vois pas le service winmgmts démarré, ni sur ma machine ni sur celle des autres.
j'ai essayé de lancer le service via la commande CMD: net start winmgmt (en local), mais j'ai un access denied. Je présume que je n'ai pas les droits pour le service


nous sommes sur XP pro. je suis sencé voir "winmgmts" dans le task manager, c'est bien ça ?

[Oliv-]

Sur W7 le nom complet du service winmgmt est "Infrastructure de gestion Windows"
Il faut éventuellement vérifier le type de démarrage il ne doit pas être désactivé.

On peut changer le démarrage avec la cmd "sc"

par exemple pour démarrer le Registre distant

Code :

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

1
2
3
4
        If IsOnline(Computername) Then
            Set oShell = CreateObject("wscript.shell")
            oShell.Exec ("sc \\" & Computername & " START RemoteRegistry ")
End if

cette fonction fait un Ping cela évite d'attendre le timeout si la machine est éteinte.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function IsOnline(Address)
    Dim strText
    IsOnline = False
    Set oExecObj = oShell.Exec("%comspec% /c ping -a -n 1 -w 20 " & Address)
    Do While Not oExecObj.StdOut.AtEndOfStream
        strText = oExecObj.StdOut.ReadAll()
        If InStr(strText, "ponse de") > 0 Then
            IsOnline = True
            Exit Function
        End If
    Loop
End Function

Si tout est démarrer ça peut être une question de droits