469,645 Members | 1,557 Online
Bytes | Developer Community
New Post

Home Posts Topics Members FAQ

Post your question to a community of 469,645 developers. It's quick & easy.

starting disabled service VBS/WMI

Hi, I need some help, i don't know much about programming other than executing them get getting them from scripting sites. My program is it won't start a service if the startup type is Disabled. it will try and stop a service that is disabled and will display msg "Error stopping service." if i run script on a service that is already running, it stop then start the service and restarts it again. Thanks whoever has the time to help me.

Option Explicit

' ------ SCRIPT CONFIGURATION ------
Dim strComputer : strComputer = "."
Dim strSvcName : strSvcName = "Alerter"
' ------ END CONFIGURATION ---------

Dim objWMI : set objWMI = GetObject("winmgmts:\\" & strComputer & _
"\root\cimv2")
Dim objService: set objService = objWMI.Get("Win32_Service.Name='" & _
strSvcName & "'")

WScript.Echo "Restarting " & objService.Name & "..."
RecursiveServiceStop objService
RecursiveServiceStart objService
WScript.Echo "Successfully restarted service"

Function RecursiveServiceStop ( objSvc )

Dim colServices : set colServices = objWMI.ExecQuery("Associators of " _
& "{Win32_Service.Name='" & objSvc.Name & "'} Where " _
& "AssocClass=Win32_DependentService Role=Antecedent" )

Dim objS
for each objS in colServices
RecursiveServiceStop objS
next

Dim intRC : intRC = objSvc.StopService
if intRC > 0 then
WScript.Echo " Error stopping service: " & objSvc.Name
WScript.Quit
else
WScript.Echo " Successfully stopped service: " & objSvc.Name
end if
End Function

Function RecursiveServiceStart ( objSvc )

Dim intRC : intRC = objSvc.StartService
if intRC > 0 then
WScript.Echo " Error starting service: " & objSvc.Name
WScript.Quit
else
WScript.Echo " Successfully started service: " & objSvc.Name
end if

Dim colServices : set colServices = objWMI.ExecQuery("Associators of " _
& "{Win32_Service.Name='" & objSvc.Name & "'} Where " _
& "AssocClass=Win32_DependentService Role=Antecedent" )

Dim objS
for each objS in colServices
RecursiveServiceStart objS
next

End Function
Nov 18 '06 #1
3 3821
bartonc
6,596 Expert 4TB
Hello, and welcome.

Two thinks will help you a lot:
1) Use code tags in your post.
2) Post your question in the VB forum at http://www.thescripts.com/forum/forum132.html

Thanks for posting - keep it up!
Nov 18 '06 #2
Sorry, i just joined and i figured the script is also for administration. thanks
Nov 18 '06 #3
bartonc
6,596 Expert 4TB
Sorry, i just joined and i figured the script is also for administration. thanks
Thanks for keeping this thread up-to-date. I hope the VB people can help you.
Nov 18 '06 #4

Post your reply

Sign in to post your reply or Sign up for a free account.

Similar topics

reply views Thread by tshad | last post: by
5 posts views Thread by eliasen | last post: by
By using this site, you agree to our Privacy Policy and Terms of Use.