Discussion :

[arnaudperfect]

Bonjour,

Je souhaite savoir s'il est possible de connaitre les services windows et surtout les comptes utilisateurs qui exécutent ces services sur un poste distant ?

Si oui, auriez vous un script vba permettant de faire ceci ?

Merci d'avance,

Arnaud

[arnaudperfect]

J'ai trouvé un début :

Code :

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

1
2
3
4
5
6
7
8
9
10
strComputer = inputbox( "Nom du PC", "Input" )
 
 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Service",,48)
For Each objItem in colItems
        Wscript.Echo "Service : " & objItem.Name & " : " & objItem.State
Next
Set colItems = Nothing
Set objWMIService = Nothing

Sur la ligne :

Code :

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

Wscript.Echo "Service : " & objItem.Name & " : " & objItem.State

J'affiche le nom du service et son état.

Qu'elle serai "objItem" pour afficher le compte utilisateur qui exécute le service en question ?

[omen999]

salut,
http://blogs.technet.com/heyscriptin...ing-under.aspx

[arnaudperfect]

yes, nickel !

Merci bcp !