Jugando con WMI: Modificar el "Tipo de Inicio" de los servicios de Windows

Siguiendo con mi incursión en el uso del WMI de windows, se me ocurrió probar en cambiar la manera en que se inician algunos servicios de windows, por ejemplo a muchas personas no les interesa el firewall o el centro de seguridad, es por eso que es normal que muchos técnicos tengamos la costumbre de estar modificandolos especialmente si queremos ahorrarnos algunos megas de memoria RAM y ganar un poco de velocidad, es por eso que arme este pequeño script en VBSCRIPT que deshabilita varios servicios que considero inútiles para una red hogareña. Ustedes pueden modificarlo para que en todo caso modifique mas servicios o bien modifique menos.

Los servicios que se deshabilita son:

• wuauserv = Actualizaciones automáticas
• wscsvc = Centro de seguridad
• RemoteAccess = Enrutamiento y acceso remoto
• mnmsrvc = Escritorio remoto compartido de NetMeeting
• SharedAccess = Firewall de Windows/Conexión compartida a Internet (ICS)
• seclogon = Inicio de sesión secundario
• RSVP = QoS RSVP

CODIGO: 

strComputer = "."

Set objWMIServicio = GetObject("winmgmts:" _

    & "{impersonationLevel=impersonate}!\\" _ 

    & strComputer & "\root\cimv2")

Set colServicios = objWMIServicio.ExecQuery _

        ("Select * from Win32_Service where Name='wuauserv' OR Name='SharedAccess' OR Name='wscsvc' OR Name='RemoteAccess' OR Name='mnmsrvc' OR Name='seclogon' OR Name='RSVP'")

For Each objServicio in colServicios

Return = objServicio.ChangeStartMode("Disabled")

If Return <> 0 Then

Wscript.Echo "ERROR" & VBNewLine _

& "Error al cambiar el servicio : " & objServicio.Name _

& "Codigo de error = " & Return 

End If

Next