Hallo nochmal,
das Thema ist leider noch nicht so ganz abgeschlossen, da das Laufzeitverhalten noch so einige Ungereimtheiten beinhaltet:
Ich habe einen "alten" Hintergrund "A", der auch die entsprechende "alte" Auflösung hat. Jetzt kommt ein anderer Bildschirm mit einer anderen Auflösung dran. Dann sollte ja der Script das neue Bild "B" laden und darstellen. Der Script sieht jetzt
so aus:
Option Explicit
'Variablendeklarationen
Dim fso, oWSH, oWMI, colWMI, objWMI, oExec, strExecCommand
Dim strHome, strImgSourceDir
Dim intHRes, intVRes
'Konstanten
Const strImgName = "Hintergrund.jpg"
Const strImgDefaultSourceDir = "1280x1024"
Const strImgTargetDir = "C:\WINDOWS\WEB\WallPaper"
'Objekte erstellen
Set fso = CreateObject( "Scripting.FileSystemObject" )
Set oWSH = CreateObject( "WScript.Shell" )
Set oWMI = GetObject( "winmgmts:\\.\root\cimv2" )
'Quellverzeichnis = aktuelles Skriptverzeichnis
strHome = fso.GetParentFolderName( WScript.ScriptFullName )
intHRes = 0: intVRes = 0
Set colWMI = oWMI.InstancesOf( "Win32_VideoController" )
For Each objWMI In colWMI
If intHRes = 0 Then
intHRes = objWMI.CurrentHorizontalResolution
intVRes = objWMI.CurrentVerticalResolution
End If
Next
If fso.FileExists( strHome & "\" & intHRes & "x" & intVRes & "\" & strImgName ) Then
strImgSourceDir = strHome & "\" & intHRes & "x" & intVRes
Else
strImgSourceDir = strHome & "\" & strImgDefaultSourceDir
End If
strExecCommand = "robocopy.exe """ & strImgSourceDir & """ """ & strImgTargetDir & """ """ & strImgName & """"
Set oExec = oWSH.Exec( strExecCommand )
With oExec
Do While .Status = 0
WScript.Sleep( 100 )
Do While Not .StdOut.AtEndOfStream
WScript.Echo .StdOut.ReadLine
Loop
Do While Not .Stderr.AtEndOfStream
WScript.Echo .StdErr.ReadLine
Loop
Loop
End With
Robocopy steht dabei im Standardsuchpfad des Servers (funktioniert soweit auch). Jetzt passiert folgendes:
Der User meldet sich an. Es wird im Anmeldeprozeß der alte Hintergrund angezeigt (selbst wenn es die Datei durch manuelles Löschen lokal gar nicht mehr gibt - wird also irgendwo aus einem Cache gelesen). Dann flackert kurz der Bildschirm und die
Autostartobjekte der GPO werden ausgeführt. Die neue Date "B" steht dann auch an der richtigen Stelle, wird aber nicht als Hintergrundbild angezeigt.
Beim Abmelden bleibt das alte Bild "A" stehen.
Beim erneuten Anmelden wird wieder "A" angezeigt, der Bildschirm flackert kurz und es wird auf "B" umgeschaltet.
Beim Abmelden wird im Abmeldevorgang wieder auf "A" umgeschaltet.
Mit dem nächsten Anmelden wird in allen 3 Phasen nur noch "B" angezeigt.
Es sind also 3 An- und Abmeldevorgänge notwendig, bis die Richtlinie vollständig umgesetzt ist! Ist das normal???
Gruß René
