mod note: The script below will disable the services listed and should be run at your own risk. Disabling some of the services may break your system or result in a decreased functionality of your system.
I hope this helps someone, I've used it so much to help home users.
This is a script to disable a lot of services that common home users won't need. This is only for those people who have one pc that doesn't need to be networked to other pcs.
To use, copy all information between the "--"'s and paste into notepad.
Save the file as "turn off services.vbs"
and then double-click the file to run it.
Give it a minute or two, then reboot.
You should see the benefits quickly.
CAUTION: Run with care. I accept no responsibility for any problems.
To enable any service that was turned off, click start/run/services.msc
Any service that was needed, right click on it and choose "automatic" instead
of disabled.
Code:
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service where Name = 'Alerter'")
For Each objService in colServiceList
If objService.State = "Running" Then
objService.StopService()
Wscript.Sleep 5000
End If
errReturnCode = objService.ChangeStartMode("Disabled")
Next
Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service where Name = 'FastUserSwitchingcompatibility'")
For Each objService in colServiceList
If objService.State = "Running" Then
objService.StopService()
Wscript.Sleep 5000
End If
errReturnCode = objService.ChangeStartMode("Disabled")
Next
Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service where Name = 'helpsvc'")
For Each objService in colServiceList
If objService.State = "Running" Then
objService.StopService()
Wscript.Sleep 5000
End If
errReturnCode = objService.ChangeStartMode("Disabled")
Next
Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service where Name = 'policyagent'")
For Each objService in colServiceList
If objService.State = "Running" Then
objService.StopService()
Wscript.Sleep 5000
End If
errReturnCode = objService.ChangeStartMode("Disabled")
Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service where Name = 'Remoteregistry'")
For Each objService in colServiceList
If objService.State = "Running" Then
objService.StopService()
Wscript.Sleep 5000
End If
errReturnCode = objService.ChangeStartMode("Disabled")
Next
Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service where Name = 'seclogon'")
For Each objService in colServiceList
If objService.State = "Running" Then
objService.StopService()
Wscript.Sleep 5000
End If
errReturnCode = objService.ChangeStartMode("Disabled")
Next
Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service where Name = 'lanmanserver'")
For Each objService in colServiceList
If objService.State = "Running" Then
objService.StopService()
Wscript.Sleep 5000
End If
errReturnCode = objService.ChangeStartMode("Disabled")
Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service where Name = 'Alerter'")
For Each objService in colServiceList
If objService.State = "Running" Then
objService.StopService()
Wscript.Sleep 5000
End If
errReturnCode = objService.ChangeStartMode("Disabled")
Next
Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service where Name = 'lmhosts'")
For Each objService in colServiceList
If objService.State = "Running" Then
objService.StopService()
Wscript.Sleep 5000
End If
errReturnCode = objService.ChangeStartMode("Disabled")
Next
Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service where Name = 'tapisvr'")
For Each objService in colServiceList
If objService.State = "Running" Then
objService.StopService()
Wscript.Sleep 5000
End If
errReturnCode = objService.ChangeStartMode("Disabled")
Next
Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service where Name = 'tlntsvr'")
For Each objService in colServiceList
If objService.State = "Running" Then
objService.StopService()
Wscript.Sleep 5000
End If
errReturnCode = objService.ChangeStartMode("Disabled")
Next
Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service where Name = 'termservice'")
For Each objService in colServiceList
If objService.State = "Running" Then
objService.StopService()
Wscript.Sleep 5000
End If
errReturnCode = objService.ChangeStartMode("Disabled")
Next
Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service where Name = 'w32time'")
For Each objService in colServiceList
If objService.State = "Running" Then
objService.StopService()
Wscript.Sleep 5000
End If
errReturnCode = objService.ChangeStartMode("Disabled")
Next
Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service where Name = 'lanmanworkstation'")
For Each objService in colServiceList
If objService.State = "Running" Then
objService.StopService()
Wscript.Sleep 5000
End If
errReturnCode = objService.ChangeStartMode("Disabled")
Next