RE: Script

["Ficks, Andrew" <aficks () kmcstampings com>]

Here is a quick and dirty script to disable a Windows service. You can
modify it to disable the service(s) you don't wish to run.

'Disable a Service Script
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



-----Original Message-----
From: listbounce () securityfocus com [mailto:listbounce () securityfocus com]
On Behalf Of Siscar, Emerson E.
Sent: Tuesday, July 24, 2007 11:57 PM
To: security-basics () securityfocus com
Subject: Script



Hello to all:

 

Am not into script writing yet. Can anyone recommend or know where I
could find/get a script that disables windows unnecessary services for
example?

 

Thank you

 

Emer