Vista - scripting msconfig

For debugging, I have a standard set of services and startup programs I want
to disable.

Is there any way to drive this with a script rather than manually clearing a
bunch of checkboxs each time??
--
Gary''s Student - gsnu200810

"Gary''s Student" <GarysStudent@xxxxxx> wrote in message
news:ACABF4AB-95D0-4D1B-8CA7-990A181E32B8@xxxxxxYou can use sc.exe to enable/disable services.

Thank you!
--
Gary''s Student - gsnu200810


"Pegasus (MVP)" wrote:

On Oct 25, 5:59*pm, Gary''s Student
<GarysStud...@xxxxxx> wrote:
Here's what I have in our startup script...

' ***** SMS Client *****

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root
\CIMV2")
Set objShare = objWMIService.Get("Win32_Service.Name='CcmExec'")
Set objInParam =
objShare.Methods_("ChangeStartMode").inParameters.SpawnInstance_()
objInParam.Properties_.Item("StartMode") = "Automatic"
Set objOutParams =
objWMIService.ExecMethod("Win32_Service.Name='CcmExec'",
"ChangeStartMode", objInParam)
Set objOutParams =
objWMIService.ExecMethod("Win32_Service.Name='CcmExec'",
"StartService")

' ***** Trend Personal Firewall *****

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root
\CIMV2")
Set objShare = objWMIService.Get("Win32_Service.Name='TmPfw'")
Set objInParam = objShare.Methods_("ChangeStartMode"). _
inParameters.SpawnInstance_()
objInParam.Properties_.Item("StartMode") = "Automatic"
Set objOutParams =
objWMIService.ExecMethod("Win32_Service.Name='TmPfw'",
"ChangeStartMode", objInParam)
Set objOutParams =
objWMIService.ExecMethod("Win32_Service.Name='Tmpfw'", "StartService")

' ***** TMPROXY *****

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root
\CIMV2")
Set objShare = objWMIService.Get("Win32_Service.Name='tmproxy'")
Set objInParam =
objShare.Methods_("ChangeStartMode").inParameters.SpawnInstance_()
objInParam.Properties_.Item("StartMode") = "Automatic"
Set objOutParams =
objWMIService.ExecMethod("Win32_Service.Name='tmproxy'",
"ChangeStartMode", objInParam)
Set objOutParams =
objWMIService.ExecMethod("Win32_Service.Name='Tmproxy'",
"StartService")

' ***** Trend Real-Time Scan SERVICE *****

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root
\CIMV2")
Set objShare = objWMIService.Get("Win32_Service.Name='NTRTScan'")
Set objInParam =
objShare.Methods_("ChangeStartMode").inParameters.SpawnInstance_()
objInParam.Properties_.Item("StartMode") = "Automatic"
Set objOutParams =
objWMIService.ExecMethod("Win32_Service.Name='NTRTScan'",
"ChangeStartMode", objInParam)
Set objOutParams =
objWMIService.ExecMethod("Win32_Service.Name='NTRTScan'",
"StartService")



' ***** Trend Listener SERVICE *****

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root
\CIMV2")
Set objShare = objWMIService.Get("Win32_Service.Name='TMListen'")
Set objInParam =
objShare.Methods_("ChangeStartMode").inParameters.SpawnInstance_()
objInParam.Properties_.Item("StartMode") = "Automatic"
Set objOutParams =
objWMIService.ExecMethod("Win32_Service.Name='TMListen'",
"ChangeStartMode", objInParam)
Set objOutParams =
objWMIService.ExecMethod("Win32_Service.Name='TmListen'",
"StartService")

'***********************************************************

Set WshShell = WScript.CreateObject("WScript.Shell")
objProcess.Create "%comspec% /C sc failure tmproxy reset= 0 actions=
restart/0 _
& sc failure tmlisten reset= 0 actions= restart/0 & sc failure tmpfw
reset= 0 _
actions= restart/0 & sc failure ntrtscan reset= 0 actions= restart/0 &
sc failure ccmexec _
reset= 0 actions= restart/0 & sc failure KBOXManagementService reset=
0 actions= _
restart/0 & sc failure KBOXSMMPService reset= 0 actions= restart/0",
null, objConfig, intProcessID

It works perfect.