Excel/VBA MVP's: Restart Windows Service with a Macro?

[bs0d]

Is it possible to restart a Windows Service with execution from a VBA Macro?

When you go into Windows Computer Management you can see a list of services. You can click a hyperlink to start, pause or restart.





Thanks,

 

[Richard Schollar]

Those Private Declares need to go at the top of your module (after any Option statements) but before any other Subs or Functions.

 

[bs0d]

Ok I fixed that

To make sure I understand the new code.... I need to put in the service name to alter. Then if I wanted to stop the service, I would comment out all debug.print lines except the last one and run Example() ?

 

[Legacy 98055]

For the most part, this is probably good enough...

    If Service("YourService", "stop") Then
        'ok
    Else
        'problem
    End If

 

[bs0d]

Hrm,

The conditions is true, but the service remains running. Something strange happened earlier too. All of these strange windows filled the task bar- the windows looked like windows services....

Edit: Does it matter if there are spaces in the service name? Do I need to use %20 or something instead?

 

[Legacy 98055]

Are you using the name (Display Name) or the service NAME. The listing you see under the name header in services is not the name we are after. Double click on the service to bring up the properties dialog. See the name we need in there. As for strange windows and other strange happenings? That is normal when you run any code I have written.

 

[bs0d]

Good call. I was using, "Network DDE DSDM" and it is actually, "NetDDEdsdm" - I'll try that and let you know.

 

[bs0d]

start = 2
stop = continues to run?
pause = 0
continue = 0

I think the pause is the only thing working...when I click continue, I no longer see updates. Unless if the workbook must be closed and re-opened each time...

also can I do this:

    If Service("NetDDEdsdm", "stop") = 0 Then
        'ok
        stp = MsgBox("Attempted to stop Network DDE DSDM service", vbOKOnly, "Stop Service")
        Exit Sub
   ElseIf Service("NetDDEdsdm", "stop") = 1 Then
        stp = MsgBox("Could not stop Network DDE DSDM service", vbOKOnly, "Stop Service")
        Exit Sub
    Else
        'problem
        stp2 = MsgBox("Already in progress or not supported.", vbOKOnly, "Stop Service")
        Exit Sub
    End If

 

[Legacy 98055]

Did you refresh the services list? Click on Action, Refresh or hit F5

 

[bs0d]

Yes,

Pause works (I see that after I refresh)
Stop does not...I have to stop the code like it's an infinite loop
Continue works (after paused)

Ok, stopping this service will stop another, so I'm getting a prompt when I stop from the computer management window.

So do I stop the influenced service, then stop the service i'm after? Probably the same for starting as well?

 

[Legacy 98055]

If there are dependancies? I don't know how to deal with that. I have only had to use this to stop services that I have created myself. They were not part of any tree.