windows services - programa - Activar/desactivar la actualización de Windows desde vbscript

desactivar windows update windows 7

Question

Necesito desactivar el servicio de actualización de Windows de mi instalación. Ya uso vbscript para hacer algunas cosas, así que me gustaría hacerlo en vbscript.

Mi conocimiento de vbscript (o cualquier otro lenguaje de script) es muy limitado, así que ... ¿alguien me puede ayudar con eso? ¡Realmente lo apreciaré!

Gracias.

Answer 1

Gracias Tomalak y Patrick Cuff. Realmente aprecio tu ayuda. Creo que esta podría ser una respuesta buena y completa.

Método 1: evita que el servicio "Actualizaciones automáticas" se inicie automáticamente cuando se inicia la máquina.

strComputer = "."  ''could be any computer, not just the local one ''
Set objWMIService = GetObject("winmgmts://" & strComputer & "/root/cimv2")

Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service where Name = ''wuauserv''")

For Each objService in colServiceList
  objService.ChangeStartMode("Disabled")
Next

Método 2: cambia la configuración de "Actualizaciones automáticas" de "Automático" a "Desactivar las actualizaciones automáticas". (MSDN enumera las otras constantes de NotificationLevel )

Const AU_DISABLED = 1

Set objAutoUpdate = CreateObject("Microsoft.Update.AutoUpdate")
Set objSettings = objAutoUpdate.Settings

objSettings.NotificationLevel = AU_DISABLED
objSettings.Save

En ambos casos, no recibirá actualizaciones automáticas. Con el método 1 no se iniciará, mientras que con el método 2 el servicio aún se está ejecutando, simplemente no se está haciendo nada.

Puede hacer ambas cosas a través de la GUI:

• Método 1: Herramientas administrativas / Servicios / Actualizaciones automáticas, cambie "Tipo de inicio" de "Automático" a "Desactivado".
• Método 2: Panel de control / Actualizaciones automáticas, seleccione "Desactivar actualizaciones automáticas".

Answer 2

Gracias Tomalak.

También encontré que:

Const SCHEDULED_INSTALLATION = 1

Set objAutoUpdate = CreateObject("Microsoft.Update.AutoUpdate")
Set objSettings = objAutoUpdate.Settings

objSettings.NotificationLevel = SCHEDULED_INSTALLATION
objSettings.Save

Este es el enlace: http://www.microsoft.com/technet/scriptcenter/resources/tales/sg0705.mspx

Answer 3

Si desea usar VBScript, use WMI:

strComputer = "."  ''could be any computer, not just the local one ''
Set objWMIService = GetObject("winmgmts://" & strComputer & "/root/cimv2")

Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service where Name = ''wuauserv''")

For Each objService in colServiceList
  objService.ChangeStartMode("Disabled")
Next

Consulte la documentación de la clase WMI Win32_Service para averiguar qué más puede hacer.

Más fácil sería el uso de sc.exe :

sc config wuauserv start=auto

Aquí hay un extracto de lo que sc.exe puede hacer:

C:/>sc config
Modifies a service entry in the registry and Service Database.
SYNTAX:
sc <server> config [service name] <option1> <option2>...
CONFIG OPTIONS:
NOTE: The option name includes the equal sign.
 type= <own|share|interact|kernel|filesys|rec|adapt>
 start= <boot|system|auto|demand|disabled>
 error= <normal|severe|critical|ignore>
 binPath= <BinaryPathName>
 group= <LoadOrderGroup>
 tag= <yes|no>
 depend= <Dependencies(separated by / (forward slash))>
 obj= <AccountName|ObjectName>
 DisplayName= <display name>
 password= <password>