Solved

Disable Services in a VB Script?

Posted on 2003-11-19
4
474 Views
Last Modified: 2010-04-13
Is it possible to disable system services in a visual basic script?  If so can anyone provide the source code?!?  It is to run as a logon script on a lab of WindowsXP machines connected to a Windows 2000 Domain.
0
Comment
Question by:CliftonAdmin
  • 2
  • 2
4 Comments
 
LVL 8

Accepted Solution

by:
Rindbaek earned 250 total points
ID: 9786033
Below is a script that stops all dependent services for the apache2 service, then it stops the service and finally disables it replace the service name withe one(s) you need to stop

Its basically a modified version of :
http://www.microsoft.com/technet/treeview/default.asp?url=/technet/scriptcenter/services/ScrSvc22.asp

You can find the description of win_32classes here:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/win32_classes.asp

Cheers
Henning



' **********************CUT Script below***********************

strComputer = "."

'First we stops all dependent services (may not be needed and can then be deleted)
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colServiceList = objWMIService.ExecQuery("Associators of " & "{Win32_Service.Name='Apache2'} Where " & "AssocClass=Win32_DependentService " & "Role=Antecedent" )
For each objService in colServiceList
objService.StopService()
Next

'now wait 20 seconds for the dependent services to stop (could be more, could be less)
Wscript.Sleep 20000

'Stops the actual service
Set colServiceList = objWMIService.ExecQuery ("Select * from Win32_Service where Name='Apache2'")
For each objService in colServiceList
errReturn = objService.StopService()
Next

'Disables the actual service
Set colServiceList = objWMIService.ExecQuery ("Select * from Win32_Baseservice where Name='Apache2'")
For each objService in colServiceList
errReturn = objService.ChangeStartMode("Disabled")
Next

' remove the  '  from the next line while testing.
' Wscript.Echo "Done"







0
 

Author Comment

by:CliftonAdmin
ID: 9791097
Thanks very much your script didn't work, I didn't try to debug though because the script from Microsoft worked great!  Cheers.

Clifton.
0
 
LVL 8

Expert Comment

by:Rindbaek
ID: 9795947
I think the problems is that some of the lines has been wrap'ed

in my browser its this line:
Set colServiceList = objWMIService.ExecQuery("Associators of " & "{Win32........


so all this should be on a single line or have an _ attched at the end of the line to show that the line continues below.

Set colServiceList = objWMIService.ExecQuery("Associators of " & "{Win32_Service.Name='Apache2'} Where "  & "AssocClass=Win32_DependentService " & "Role=Antecedent" )

 could be rewritten like this:

Set colServiceList = objWMIService.ExecQuery("Associators of " & _
 "{Win32_Service.Name='Apache2'} Where "  & _
 "AssocClass=Win32_DependentService " & "Role=Antecedent" )

Sorry that I didn't think about that.

Henning
0
 

Author Comment

by:CliftonAdmin
ID: 9807184
Yep that did fix it... thanks for following through when I already accepted the answer.

You have been a great help.

Clifton.
0

Featured Post

Migrating Your Company's PCs

To keep pace with competitors, businesses must keep employees productive, and that means providing them with the latest technology. This document provides the tips and tricks you need to help you migrate an outdated PC fleet to new desktops, laptops, and tablets.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

NTFS file system has been developed by Microsoft that is widely used by Windows NT operating system and its advanced versions. It is the mostly used over FAT file system as it provides superior features like reliability, security, storage, efficienc…
For months I had no idea how to 'discover' the IP address of the other end of a link (without asking someone who knows), and it drove me batty. Think about it. You can't use Cisco Discovery Protocol (CDP) because it's not implemented on the ASAs.…
This video shows how to quickly and easily add an email signature for all users on Exchange 2016. The resulting signature is applied on a server level by Exchange Online. The email signature template has been downloaded from: www.mail-signatures…
With Secure Portal Encryption, the recipient is sent a link to their email address directing them to the email laundry delivery page. From there, the recipient will be required to enter a user name and password to enter the page. Once the recipient …

770 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question