Heißes Thema (mehr als 10 Antworten) Updateinstallation pushen für neuinstallierte Rechner (Gelesen: 8804 mal)
Zebbelin
WSUS Full Member
**
Offline



Beiträge: 66
Mitglied seit: 14.12.09
Updateinstallation pushen für neuinstallierte Rechner
13.01.10 um 08:17:41
Beitrag drucken  
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
 



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

Verbesserungen, Vorschläge, Erfahrungen erwünscht  Zwinkernd

Gruß
Zebbelin
  
Zum Seitenanfang
 
memnon
WSUS Junior Member
*
Offline


I Love WSUS!

Beiträge: 27
Mitglied seit: 14.01.10
Re: Updateinstallation pushen für neuinstallierte Rechner
Antwort #1 - 14.01.10 um 08:41:01
Beitrag drucken  
hört sich jedenfalls interessant an

"sieht gut aus" oder bist fertig mit testen und "ist gut" ?
  
Zum Seitenanfang
 
Zebbelin
WSUS Full Member
**
Offline



Beiträge: 66
Mitglied seit: 14.12.09
Re: Updateinstallation pushen für neuinstallierte Rechner
Antwort #2 - 14.01.10 um 12:32:07
Beitrag drucken  
Also meine Tests waren alle erfolgreich.

Würde sagen V1.00 ist fertig  Smiley
  
Zum Seitenanfang
 
forthy64
WSUS Junior Member
*
Offline


... makes things possible

Beiträge: 49
Mitglied seit: 13.12.07
Geschlecht: männlich
Re: Updateinstallation pushen für neuinstallierte Rechner
Antwort #3 - 14.01.10 um 16:13:46
Beitrag drucken  
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
  
Zum Seitenanfang
Zebbelin
WSUS Full Member
**
Offline



Beiträge: 66
Mitglied seit: 14.12.09
Re: Updateinstallation pushen für neuinstallierte Rechner
Antwort #4 - 15.01.10 um 08:39:59
Beitrag drucken  
Hi,
in meinen Tests wurden immer nur vom WSUS genehmigte Updates installiert.

Ich überprüfe das ganze nochmal
Gruß
  
Zum Seitenanfang
 
Zebbelin
WSUS Full Member
**
Offline



Beiträge: 66
Mitglied seit: 14.12.09
Re: Updateinstallation pushen für neuinstallierte Rechner
Antwort #5 - 15.01.10 um 15:40:00
Beitrag drucken  
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
'#######################
 



Gruß und ein schönes Wochenende
  
Zum Seitenanfang
 
lenny
WSUS Senior Member
***
Offline


I Love LDAP!

Beiträge: 190
Mitglied seit: 06.10.09
Geschlecht: männlich
Re: Updateinstallation pushen für neuinstallierte Rechner
Antwort #6 - 02.02.10 um 15:42:59
Beitrag drucken  
Hallo Kollegen,

bin beeindruckt Smiley und verstehe auch ned wirklich was von vbs.
Deshalb vielleicht auch eine dumme Frage Durchgedreht

Wie fangt Ihr die Neustarts ab? Bzw. Wie startet Ihr das Script danach wieder automatisch?
  
Zum Seitenanfang
 
Zebbelin
WSUS Full Member
**
Offline



Beiträge: 66
Mitglied seit: 14.12.09
Re: Updateinstallation pushen für neuinstallierte Rechner
Antwort #7 - 08.02.10 um 12:10:28
Beitrag drucken  
Hi,

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

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

Gruß
  
Zum Seitenanfang
 
Blogster
WSUS Profi
****
Offline


I Love WSUS!

Beiträge: 391
Mitglied seit: 12.03.08
Geschlecht: männlich
Re: Updateinstallation pushen für neuinstallierte Rechner
Antwort #8 - 09.02.10 um 14:30:46
Beitrag drucken  
Hi,
warum macht ihr das den so umständlich?
(Du musst Dich Einloggen oder Registrieren um Multimediadateien oder Links zu sehen).

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

Quote:
************ 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

  
Zum Seitenanfang
 
Zebbelin
WSUS Full Member
**
Offline



Beiträge: 66
Mitglied seit: 14.12.09
Re: Updateinstallation pushen für neuinstallierte Rechner
Antwort #9 - 12.02.10 um 10:33:33
Beitrag drucken  
Weil ich nicht weiß was externe Tools machen.

Da vertraue ich lieber auf mein Script  Smiley
  
Zum Seitenanfang
 
xeox
WSUS Neuling
Offline


I Love WSUS!

Beiträge: 9
Mitglied seit: 18.09.09
Re: Updateinstallation pushen für neuinstallierte Rechner
Antwort #10 - 06.07.10 um 18:33:33
Beitrag drucken  
Zum Thema Script: probier mal WuInstall (Du musst Dich Einloggen oder Registrieren um Multimediadateien oder Links zu sehen)., kann man auch in ein Script einbauen, macht eben das was oben beschriebenes VB-Script macht im Grunde auch, nur mit mer Konfigurationsmöglichkeiten
  
Zum Seitenanfang
 
ribaadmin
WSUS Junior Member
*
Offline


I Love WSUS!

Beiträge: 22
Mitglied seit: 14.09.11
Re: Updateinstallation pushen für neuinstallierte Rechner
Antwort #11 - 15.09.11 um 08:18:32
Beitrag drucken  
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ß
  
Zum Seitenanfang
 
Sunny
Microsoft MVP
*****
Offline



Beiträge: 15134
Mitglied seit: 11.02.07
Geschlecht: männlich
Re: Updateinstallation pushen für neuinstallierte Rechner
Antwort #12 - 20.09.11 um 11:11:29
Beitrag drucken  
ribaadmin schrieb on 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 on 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?
  
Zum Seitenanfang
 
Bookmarks: Facebook Google Google+ Linked in Twitter Yahoo
 



Nutzungsbedingungen | Datenschutz
Kontakt | RSS | Feedback | Impressum
Facebook | News einsenden