Oktober 24, 2014
anmelden | registrieren
Automatisch Updates für IMFv2 einspielen minimieren

Tobias Redelberger
2007-02-07

Vorraussetzung zur Installation ist Windows 2003 Server oder Windows 2000 SP4! Windows 2003 Server Servicepack 1 wird dringend empfohlen.

Damit der IMF V2.0 als Teil des Exchange Server 2003 SP2 installiert werden kann, muss vor der Servicepack-Installation eine vorhandene V1 des IMF über Systemsteuerung->Software deinstalliert werden.

Hinweise zur Installation des Exchange Server 2003 SP2:
http://download.microsoft.com/download/f/b/5/fb5c54af-fe5c-48e9-be97-f9e8207325ab/Ex_2003_SP2_RelNotes.htm

Folgendes Update wird vor der Installation des Exchange SP2 empfohlen:

Installing security update MS05-019 or Windows Server 2003 Service Pack 1 may cause network connectivity between clients and servers to fail
http://go.microsoft.com/fwlink/?LinkId=3052&kbid=898060

Folgendes ist noch zu beachten, bevor man das Skript aktivieren kann:

Enabling IMF Filter Updates
  To enable Intelligent Message Filter updates, you must create the ContentFilterState registry entry
(http://support.microsoft.com/?kbid=907747 explains this in some detail). To do this, follow these steps:

  1. Ensure that Exchange Server 2003 Service Pack 2 is installed on the machine
  2. Click Start, click Run, type regedit, and then click OK.
  3. Expand the following registry subkey:

     HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Exchange

  4. In the left pane, click Exchange. Then, right-click in the right pane, point to New, and then click DWORD Value.
  5. Type ContentFilterState, and then press ENTER to name the new registry entry.
  6. Right-click ContentFilterState, and then click Modify.
  7. In the Data value box, type 1, and then click OK.
  8. Quit Registry Editor.
  9. In the Services snap-in, restart the Simple Mail Transfer Protocol (SMTP) service.

Mittels folgenden Artikel (siehe VBScript am Ende des Selbigen) kann man auch die IMF-Updates automatisch einspielen lassen:

Demystifying Exchange Server 2003 SP2 IMF Updates
http://msexchangeteam.com/archive/2006/04/12/425060.aspx

Evtl. sollte man folgende Zeilen im VBScript anpassen:

'By default, the scan will use what AU is configured to use. It could be WSUS or MU/WU.

'If you want to force the scan to use Microsoft Update and not what AU is configured to use simply uncomment the below lines
    
'objUpdateSearcher.ServiceID ="7971f918-a847-4430-9279-4a52d1efe18d"
'objUpdateSearcher.ServerSelection = 3
'objUpdateSearcher.Online = true

und bei Problemen mit Unicode-Zeichen (IE->Ansicht->Codierung) folgenden Abschnitt:

Function IsTitleOfUpdateIMFUpdate(StrTitle)

IsTitleOfUpdateIMFUpdate = vbFalse

if ( StrComp (objSearchResult.Updates.Item(i).title, "Update for Intelligent Message Filter for Exchange Server 2003:") > 0 ) OR _
( StrComp (objSearchResult.Updates.Item(i).title, "Exchange Server 2003 Intelligent Message Filter 용 핫픽스:") > 0 ) OR  _
( StrComp (objSearchResult.Updates.Item(i).title, "Mise à jour pour Intelligent Message Filter pour Exchange Server 2003:") > 0 ) OR  _
( StrComp (objSearchResult.Updates.Item(i).title, "Update für Intelligent Message Filter für Exchange Server 2003:") > 0 ) OR  _
( StrComp (objSearchResult.Updates.Item(i).title, "Exchange Server 2003 Intelligent Message Filter 用 更新プログラム(KB907747):") > 0 ) OR  _
( StrComp (objSearchResult.Updates.Item(i).title, "Actualización para Intelligent Message Filter para Exchange Server 2003:") > 0 ) OR  _
( StrComp (objSearchResult.Updates.Item(i).title, "Aggiornamento per Intelligent Message Filter per Exchange Server 2003:") > 0 ) OR  _
( StrComp (objSearchResult.Updates.Item(i).title, "更新 for Exchange Server 2003 Intelligent Message Filter:") > 0 ) OR  _
( StrComp (objSearchResult.Updates.Item(i).title, "Exchange Server 2003 Intelligent Message Filter 的 更新:") > 0 ) then IsTitleOfUpdateIMFUpdate = vbTrue

End Function

auf die deutsche (und evtl. english) Version der IMF-Updates kürzen:

Function IsTitleOfUpdateIMFUpdate(StrTitle)

IsTitleOfUpdateIMFUpdate = vbFalse

if ( StrComp (objSearchResult.Updates.Item(i).title, "Update for Intelligent Message Filter for Exchange Server 2003:") > 0 ) OR _
( StrComp (objSearchResult.Updates.Item(i).title, "Update für Intelligent Message Filter für Exchange Server 2003:") > 0 ) then IsTitleOfUpdateIMFUpdate = vbTrue

End Function

Abspeichern z.B. unter "c:\IMFV2_download_Updates_and_install_automaticly.vbs", dann dazu noch ein Batch-File "IMFV2_download_Updates_and_install_automaticly.bat" dazu:

@echo OFF
echo #############################################
echo # Update von IMFv2 wurde gestartet
echo #############################################

echo ############################################# >> c:\IMFV2_download_Updates_and_install_automaticly.log
echo # Update Start:  %date% @ %time% >> c:\IMFV2_download_Updates_and_install_automaticly.log
echo ############################################# >> c:\IMFV2_download_Updates_and_install_automaticly.log

cscript c:\IMFV2_download_Updates_and_install_automaticly.vbs Install >> c:\IMFV2_download_Updates_and_install_automaticly.log

echo ############################################# >> c:\IMFV2_download_Updates_and_install_automaticly.log
echo # Update End:  %date% @ %time% >> c:\IMFV2_download_Updates_and_install_automaticly.log
echo ############################################# >> c:\IMFV2_download_Updates_and_install_automaticly.log

echo #############################################
echo # Update von IMFv2 wurde beendet
echo #############################################

und ab in einen geplanten Task. Dabei darauf achten, dass das Installieren des Updates die Dienste des IIS und des Exchange Servers temp. beendet, jedoch nach einem erfolgreichen Update diese Dienste auch wieder automatisch startet. Dennoch sind für diese Zeit (durchschnittlich zwischen 2..5 Minuten, je nach Last des Servers und Größe der Datenbanken) die Dienste nicht erreichbar.

Deswegen das Batch-File nicht zu Arbeits-, Backup- oder Wartungszeiten ausführen.


Feedback maximieren