Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colServiceList = objWMIService.ExecQuery("Select * from Win32_Service where Name = 'wuauserv'")
For Each objService in colServiceList
objService.StartService()
objService.ChangeStartMode("Automatic")
Next
Const AU_ENABLE = 4
Set objAutoUpdate = CreateObject("Microsoft.Update.AutoUpdate")
Set objSettings = objAutoUpdate.Settings
objSettings.NotificationLevel = AU_ENABLE
objSettings.Save
|