Guten Morgen,

ich habe mich die letzten Tage etwas mit dem Thema befasst wie man die Installation der Win Updates pushen kann, damit man das bei neuinstallierten Rechnern mit in die Installationsroutine einbauen kann.

Habe jede Menge Tools gefunden und riesige Skripte. Wollte aber etwas ganz einfaches was nichts anderes macht und kann als Windows Updates herunterzuladen und zu installieren.

Genau das macht mein kleines VB Skript. Bin noch am testen ob es wirklich 100%ig funktioniert, aber bis jetzt sieht es ganz gut aus.

[code]

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
[/code]

Hab mir das aus einem großen Skript zusammengebastelt, kann also sein das man nicht alle Zeilen braucht.

Verbesserungen, Vorschläge, Erfahrungen erwünscht  ;)

Gruß
Zebbelin

hört sich jedenfalls interessant an

"sieht gut aus" oder bist fertig mit testen und "ist gut" ?

Also meine Tests waren alle erfolgreich.

Würde sagen V1.00 ist fertig  :)

Hi!

Im WindowsUpdate.Log begegnet man häufig folgender Zeile:

... Criteria =
"IsHidden=0 and IsInstalled=0 and DeploymentAction='Installation' and IsAssigned=1 or
IsHidden=0 and IsPresent=1 and DeploymentAction='Uninstallation' and IsAssigned=1 or
IsHidden=0 and IsInstalled=1 and DeploymentAction='Installation' and IsAssigned=1 and RebootRequired=1 or
IsHidden=0 and IsInstalled=0 and DeploymentAction='Uninstallation' and IsAssigned=1 and RebootRequired=1"

Werden bei deinem Script nur angewiesene Patche installiert?

Evtl. ist da auch ein Test auf:
IsHidden=0 and IsInstalled=0 and DeploymentAction='Installation' and IsAssigned=1 notwendig.

... ist aber nur so eine Idee ...

CU
Wolfgang

Hi,
in meinen Tests wurden immer nur vom WSUS genehmigte Updates installiert.

Ich überprüfe das ganze nochmal
Gruß

Also ja er installiert nur vom WSUS genehmingte Updates.

Habe noch folgende Sachen eingebaut:

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

Hat bei mir super funktioniert

[code]
'#######################
'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
'#######################
[/code]

Gruß und ein schönes Wochenende

Hallo Kollegen,

bin beeindruckt :) und verstehe auch ned wirklich was von vbs.
Deshalb vielleicht auch eine dumme Frage :D

Wie fangt Ihr die Neustarts ab? Bzw. Wie startet Ihr das Script danach wieder automatisch?

Hi,

also nach der Installation wird kein automatischer Neustart durchgeführt.

Normalerweise sollte er ohne Neustart den größten Teil der Windowsupdates installieren.

Gruß

Hi,
warum macht ihr das den so umständlich?
  (Du musst Dich Einloggen oder Registrieren

Tool saugen, clients hinzufügen, rechtsklick auf client search download install reboot fertig.

Eignet sich auch hervorragend um z.B. mitten am Tag eine Installation auf allen Clients unabhängig von der Install Time anzustossen.

Funktioniert hier wunderprächtig mit allen Clients


Zitat:

************ Donnerstag - 04.02.2010 - 13:55:52 ************ WKSPR***** List of applicable items on the machine: 1> Sicherheitsupdate f�r Windows 2000 (KB960225) 2> Update f�r Windows 2000 (KB967715) ...... Creating collection of updates to download: 1> adding: Sicherheitsupdate f�r Windows 2000 (KB960225) 2> adding: Update f�r Windows 2000 (KB967715) ..... Downloading updates... List of downloaded updates: 1> Sicherheitsupdate f�r Windows 2000 (KB960225) 2> Update f�r Windows 2000 (KB967715 ..... Creating collection of downloaded updates to install: > adding:  Sicherheitsupdate f�r Windows 2000 (KB960225) > adding:  Update f�r Windows 2000 (KB967715) ..... Installing updates... Listing of updates installed with individual installation results: 1> Sicherheitsupdate f�r Windows 2000 (KB960225): Succeeded 2> Update f�r Windows 2000 (KB967715): Succeeded ..... Overall Installation Result: Succeeded Reboot Required: Wahr

Weil ich nicht weiß was externe Tools machen.

Da vertraue ich lieber auf mein Script  :)

Zum Thema Script: probier mal WuInstall   (Du musst Dich Einloggen oder Registrieren, kann man auch in ein Script einbauen, macht eben das was oben beschriebenes VB-Script macht im Grunde auch, nur mit mer Konfigurationsmöglichkeiten

Hallo,

super Script.
es funktioniert bei mir auf dem Rechner einwandfrei.
Beim Kollegen auf dem identisch aufgesetzten Rechner mit dem gleichen NT Benutzerkonto funktioniert es allerdings nicht.
Da kommt die Meldung Laufzeitfehler und Zeile 56 Zeichen 1.

Hat jemand eine Idee wie ich das beheben kann?
Auch das DOS Fenster geht nach 0,1 Sekunden wieder zu an diesem Rechner. Bei mir bleibt es lange geöffnet.

Hoffe ihr könnt mir helfen.

Gruß

ribaadmin schrieb am 15.09.11 um 08:18:32:

super Script. es funktioniert bei mir auf dem Rechner einwandfrei. Beim Kollegen auf dem identisch aufgesetzten Rechner mit dem gleichen NT Benutzerkonto funktioniert es allerdings nicht. Da kommt die Meldung Laufzeitfehler und Zeile 56 Zeichen 1.

Welches von den vielen Scripten meinst Du? Poste doch am besten das verwendete Script, dann sieht man evtl. mehr. Was genau meinst Du mit dem gleichen NT-Benutzerkonto?


ribaadmin schrieb am 15.09.11 um 08:18:32:

Hat jemand eine Idee wie ich das beheben kann? Auch das DOS Fenster geht nach 0,1 Sekunden wieder zu an diesem Rechner. Bei mir bleibt es lange geöffnet.

Welches DOS-Fenster? Welche Fehlermeldungen findest Du im Eventlog?