Autres [VBA] Services Windows : lister et connaitre l'état de chaque service

[DAH02]

Bonjour,

Je n'ai pas trouvé comment lister les services Windows et connaitre l'état de ces services le tout en VBA.
Ce serait pour une macro utilisable sur différents OS et versions d'Excel.

Cordialement,

DAH

 

[DAH02]

Par différents OS, je veux parler de différentes versions de Windows. De Windows 7 à Windows 11.

Merci d'avance pour votre aide

 

[patricktoulon]

Bonjour
serait -ce de cela que tu parles

Sub test()
    Dim tbl(1 To 1000, 1 To 8)
    Dim Computer, ServiceSet, Service
    Computer = "."
    Set ServiceSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//./root/cimv2").InstancesOf("Win32_Service")
    For Each Service In ServiceSet
        a = a + 1
        tbl(a, 1) = Service.DisplayName
    Next
    Set ServiceSet = Nothing
    Cells(1, 1).Resize(a) = tbl
End Sub

 

[DAH02]

Effectivement, ton script me donne bien la liste des services. Par contre, comment connaitre leur état pour savoir si ils sont démarrés ou non ?

 

[patricktoulon]

bonsoir
il faudrait faire un peu des recherches
je t'ai donné une base
à toi de chercher si un membre de l'object service du genre state ou status existe
je dis ça moi je dis rien

 

[Staple1600]

Bonsoir

Pourquoi VBA quand Powershell fait cela trés bien sans déranger Excel, qui apprécie qu'on lui laisse vivre sa vie de tableur

Tout comme patrick, je dirais qu'il a y de nombreux exemples sur le net

(Dois aussi y en avoir sur mon disque dur C:Acer, hein patrick )
Mais comme j'ai tout rangé, ca va être coton à retrouver.

 

[Staple1600]

Re

Exemple: liste des services "en cours d'éxécution"
1) Ouvrir PShell en mode admin
2) copier cette ligne

Get-Service | Where-Object {$_.Status -eq "Running"} | Out-File -filepath "$Env:userprofile\Desktop\ServicesActifs.txt"

puis appuyer sur ENTER

Le résultat est quasi immédiat sur mon PC.
NB: Le fichier est créé sur le Bureau.

 

[Staple1600]

Re

Il y aussi cela
(Cette fois-ce, invite ms-dos - mode admin)
sc query state= all > c:\temp\liste_services.txt
puis ENTER
Nb: adapter le nom du chemin selon vos souhaits.