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

D

DAH02

XLDnaute Nouveau

• 31 Mars 2022

• #2

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

Merci d'avance pour votre aide

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 31 Mars 2022

• #3

Bonjour
serait -ce de cela que tu parles

VB:

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

 

Vote positif 0 Vote négatif

D

DAH02

XLDnaute Nouveau

• 1 Avril 2022

• #4

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 ?

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 1 Avril 2022

• #5

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Avril 2022

• #6

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.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Avril 2022

• #7

Re

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

Code:

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.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Avril 2022

• #8

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.

 

Vote positif 0 Vote négatif