A still unanswered NT Service question!!! [RESOLVED]

[virtualblender]

I searched the whole web. And searched all threads concerning NT Service in this forum and I found the exact same question that I'm asking myself and you guys.

Since nobody answered the other thread, I was hoping that maybe now the answer could come up. Tks in advance, here it goes:

How can I tell wheter a service is already installed or not?

Something like this:

' I made up this IsInstalled property of coarse just to show you what I need.
 
Sub cmdInstallService_Click()
 
     If NTService.IsInstalled = False Then
          NTService.Install
     End If
 
End Sub

I need this because the user that is viewing my vb application wants to know wheter it is installed or not. If not, he clicks the button install and ok! I can't make the user go to Settings -> Control Panel and look for the service... I must be able to tell the user this information!

Tks

[RobDog888]

Welcome to the Forums.

You can use WMI reference in VB6 to list all services installed on a system.

Set ServiceSet = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_Service")
 
For each Service in ServiceSet
    MsgBox Service.Description
Next

[moinkhan]

I searched the whole web. And searched all threads concerning NT Service in this forum and I found the exact same question that I'm asking myself and you guys.

Since nobody answered the other thread, I was hoping that maybe now the answer could come up. Tks in advance, here it goes:

How can I tell wheter a service is already installed or not?

Something like this:

' I made up this IsInstalled property of coarse just to show you what I need.
 
Sub cmdInstallService_Click()
 
     If NTService.IsInstalled = False Then
          NTService.Install
     End If
 
End Sub

I need this because the user that is viewing my vb application wants to know wheter it is installed or not. If not, he clicks the button install and ok! I can't make the user go to Settings -> Control Panel and look for the service... I must be able to tell the user this information!

Tks

Well.. if you look into registry at HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services all the child nodes which which have the Type value set to >=10 (Hex) is a service....

I am not on VB machine... otherwise i would have enumerated the keys for u..

[Hack]

RobDog888: I just tried this and it doesn't know what ServiceSet is. How do you declare that?

[moinkhan]

Welcome to the Forums.

You can use WMI reference in VB6 to list all services installed on a system.

Set ServiceSet = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_Service")
 
For each Service in ServiceSet
    MsgBox Service.Description
Next

Wow.. never knew it's that easy...

Set ServiceSet = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_Service")
 
For Each Service In ServiceSet
    Debug.Print Service.Name, Service.DisplayName, Service.Description
Next

virtualblender forget about my suggestion..

[RobDog888]

Here you go.

Option Explicit
'Add a reference to MS WMI Scripting V1.2 Library
Private Sub Command1_Click()
    Dim ServiceSet As Object
    Dim Service As Object
    Set ServiceSet = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_Service")
    For Each Service In ServiceSet
        MsgBox Service.Name & " - " & Service.Description
    Next
End Sub

[RobDog888]

You can also execute a query against the database passing criteria for a particular service instead
of enumerating them.

Option Explicit
'Add a reference to MS WMI Scripting V1.2 Library
Private Sub Command1_Click()
    Dim ServiceSet As Object
    Dim Service As Object
    'Set ServiceSet = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_Service")
    Set ServiceSet = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_Service where name = 'Alerter'")
    For Each Service In ServiceSet
        MsgBox Service.Name & " - " & Service.Description
    Next
End Sub

Wow.. never knew it's that easy...

Neither did I until I learned about the power of WMI.

[virtualblender]

Omg you guys are too fast! I thought of checking the forum only tomorrow but hey cool!

So tks for the welcome (I forgot to mention it's my first post ^^)
and of coarse... tks for the answer which worked perfectly. I'm using the query one that you mentioned

Tksss

[RobDog888]

Omg you guys are too fast! I thought of checking the forum only tomorrow but hey cool!

I think you will find that VB Forums is "The" best forum around. Usually you can get a reply within minutes, depending
on the time of day. I'm glad you didnt wait for tomorrow!

We are all glad to help and always happy to have new members.