Liste des services windows differents via vb et via "demarrer/exectuer/services.Résolu

Question

Salut,

J'essaie d'avoir la liste des services windows via vb.
J'ai recupere le code ici mais lorsque je compare le resultat a la liste des services que me donne "demarrer/executer" puis services.msa, cela n'a rien a voir... No comprendo...

Voici mon pseudo code d'essai. Je developpe sous XP mais cela est destiné a NT (est-ce portable deja....?). Merci d'avance!

Public Sub BatchOK() As Boolean

Dim Service
Dim element
On Error GoTo erreur:

    Set Service = GetObject("WinMgmts:").instancesof("Win32_service")
    For Each element In Service
        MsgBox (element.Name) 'ICI je ne retrouve pas mes petits!!!
    Next element

Exit Sub

erreur:
MsgBox ("Erreur lors de la vérification de l'existance d'un batch")

End Function

Blob

cs_JMO · Accepted Answer

Bonjour,

Ci-dessous, les principales informations renvoyées par la classe Win32_Service.
A adapter pour vb6.

Dim Computer, ServiceSet, Service
Computer = "."
Set ServiceSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & _
                    Computer & "/root/cimv2").InstancesOf("Win32_Service")
For each Service in ServiceSet
Msgbox Service.DisplayName &vbCrLf&vbCr& Service.PathName &vbCrLf&vbCr&_
       Service.Description &vbCr&vbCrLf& Service.StartMode &vbCrLf&vbCr& _
       Service.State &vbCrLf&vbCr& Service.StartName _
       ,,Service.Name & Space(10) & Service.Caption
Next
Set ServiceSet = Nothing

voir http://www.secretswindows.com/index.php?rubrique=scripts&ssrubrique=WMI&page=./scripts/wmi/win32service.htm

jean-marc

Kristof_Koder · Answer

Je pense que ton souci vient du fait que ton code récupère, via WMI, le nom des services, or, ce que toi tu vois dans la console msc, ce n'est pas le nom des services, mais une description courte du service.
Il me semble que la classe Win32_service dispose d'une propriété DisplayName, ou un truc du genre qui devrait correspondre à ce que tu vois dans la console MSC.

blobtwist · Answer

Merci a tous les deux, c'est pour ca que je retrouvais mes petits effectivement! =)

Blob

Liste des services windows differents via vb et via "demarrer/exectuer/services.

3 réponses

Votre réponse

Discussions similaires