Re: Exchange cache Modus per GPO

Norbert Fehlauer [MVP] schrieb:
Valentin wrote:
Hi,

%userprofile%\Lokale Einstellungen\Anwendungsdaten\Microsoft\Outlook\

Genau das ist ja das Problem, bei mir wird die Datei nicht angelegt.

In obigem Pfad wird die Datei aber per default angelegt. Heißt du mußt das nicht explizit konfigurieren. Setz mal auf "nicht konfiguriert".


Versuche ich gleich. Meine VBScript Kenntnisse sind miserabel.... Ich
arbeite daran:-)

OK. Gib mal Rückmeldung.

Danke
Norbert


Hallo,

ich wollte nur nochmal Rückmeldung geben.
Ich habe es jetzt wie folgt hinbekommen:

Im Startskript habe ich den Import einer Profil-Datei integriert:

objWSHShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Outlook\Setup\ImportPRF", "\\Servername\NETLOGON\Outlook.PRF", "REG_SZ"

dann lösche ich dn First-Run regkey

objWSHShell.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Outlook\Setup\First-Run"

somit wird beim nächsten Starten die Datei importiert und beim Schlißen von Outlook ein neuer First-Run geschrieben und der Import Key automatisch gelöscht. Damit nicht jedesmal neu importiert wird Frage schreibe ich einen neuen Wert den ich vor dem ausführen des Skriptes abfrage:

objWSHShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Outlook\Setup\CacheModusUmgestellt", "1", "REG_SZ"

Wichtig ist, dass die Profil Datei auf Modus Append steht. Dadruch gehen bestehende Einstellungen nicht verloren.

Insgesamt sieht das dann so aus:

Option Explicit
On Error Resume Next

Dim objWSHShell
Dim sFRKey, sFRSearch

' Strings
sFRKey = "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Outlook\Setup\CacheModusUmgestellt"

' Set object
Set objWSHShell = WScript.CreateObject("WScript.Shell")

' Search for it
sFRSearch = objWSHShell.RegRead(sFRKey)
WScript.Echo err

' Does key exist?
If err <> 0 Then

WScript.Echo "Importing PRF file into registry"
objWSHShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Outlook\Setup\ImportPRF", "\\sv-61\NETLOGON\Outlook.PRF", "REG_SZ"
objWSHShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Outlook\Setup\CacheModusUmgestellt", "1", "REG_SZ"
objWSHShell.RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Outlook\Setup\First-Run"
Else
WScript.Echo "Outlook PRF has already been imported"
End if

' Clean up
set objWSHShell = Nothing
.

Relevant Pages

  • Re: Re: Batch-Datei: Randomize copy
    ... Dim oOrdner 'Scripting.Folder ... Set oFS = CreateObject ... 'Dateiliste durchschleifen, bei der zufälligen Datei Schleife verlassen ... Set oOrdner = Nothing ...
    (microsoft.public.de.german.windowsxp.sonstiges)
  • xml-datei in unicode erzeugen
    ... Set elemente = New ADODB.Recordset ... Die erzeugte Datei lässt sich ... Die Betreiber der ausländischen Website bemängeln ... dass die erzeugte Datei in Wirklichkeit eine ASCII-Datei ist und nicht ...
    (microsoft.public.de.access)
  • Re: Dateigröße und Zeit
    ... "DateLastModified Property" ... The object is always a File or Folder object. ... Set fs = CreateObject ... Set f = fs.GetFile("Pfad und Name der Datei") ...
    (microsoft.public.de.access)
  • Re: Windows XP prof.---ME
    ... Stelle im Feld "Standardbetriebssystem" falls nicht schon ... Öffne den Windows Explorer und stelle sicher, ... Kopiere die Datei C:\BOOT.INI in ein anderes ... Set WshShell = WScript.CreateObject ...
    (microsoft.public.de.german.windowsxp.sonstiges)
  • Re: Batch-Datei: Randomize copy
    ... Dim oOrdner 'Scripting.Folder ... Set oFS = CreateObject ... Sehr unschön an dem Coding ist die "For Each" Schleife, ... Die Datei, welche in der Schleife ...
    (microsoft.public.de.german.windowsxp.sonstiges)