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
Nice work, Thanks
ResponderEliminar