• Gruppenrichtlinie aktualisieren
• Updatedienst stoppen
• Updatedienst starten
• Updates suchen, downloaden und installieren

'#######################
'Gruppenrichtlinie aktualisieren
'#######################

set wshell = createObject("WScript.Shell") 
wshell.run("%comspec% /c ""%windir%\system32\gpupdate /force /wait:0""")

'#######################
'Dienst stoppen
'#######################
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colServiceList = objWMIService.ExecQuery("Associators of " _
   & "{Win32_Service.Name='wuauserv'} Where " _
        & "AssocClass=Win32_DependentService " & "Role=Antecedent" )
For each objService in colServiceList
    objService.StopService()
Next
Wscript.Sleep 20000
Set colServiceList = objWMIService.ExecQuery _
        ("Select * from Win32_Service where Name='wuauserv'")
For each objService in colServiceList
    errReturn = objService.StopService()
Next

'#######################
'Dienst starten
'#######################
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colServiceList = objWMIService.ExecQuery _
    ("Select * from Win32_Service where Name='wuauserv'")
For each objService in colServiceList
    errReturn = objService.StartService()
Next
Wscript.Sleep 20000
Set colServiceList = objWMIService.ExecQuery("Associators of " _
   & "{Win32_Service.Name='wuauserv'} Where " _
        & "AssocClass=Win32_DependentService " & "Role=Dependent" )
For each objService in colServiceList
    objService.StartService()
Next

Wscript.Sleep 20000

'#######################
'Updates Installieren
'#######################

Set updateSession = CreateObject("Microsoft.Update.Session")
Set updateSearcher = updateSession.CreateUpdateSearcher()
Set updateDownloader = updateSession.CreateUpdateDownloader()
Set updateInstaller = updateSession.CreateUpdateInstaller()
Set updateSearch = updateSearcher.Search("IsInstalled=0")


Set updateList = updateSearch.Updates

  For I = 0 to updateSearch.Updates.Count - 1

    Set update = updateList.Item(I)

updateDownloader.Updates = updateList
  
updateDownloader.Priority = 3

  Set downloadResult = updateDownloader.Download()

 updateInstaller.Updates = updateList

  Set installationResult = updateInstaller.Install()

      Set updateInstallationResult = installationResult.GetUpdateResult(I)


Next
'#######################
'Fertig
'#######################