Desktopbild zentriert darstellen
Hallo zusammen,
für unsere Awareness-Kampagne werden wir ein Bild 10-15 Sekunden als Hintergrund bei der Anmeldung einblenden, dass die User zu verschiedenen Security-Themen sensibilisiert.
Der bisherige Code:
Das Bild wird mit diesem Code 10 Sekunden angezeigt - jedoch leider Gestreckt. Wir hätten das gerne zentriert.. ist ja nur ne Kleinigkeit, aber habe dazu nichts gefunden.
Wäre super wenn mir da jemand kurz helfen könnte.
Vielen Dank schon einmal.
Viele Grüße,
D.B.
für unsere Awareness-Kampagne werden wir ein Bild 10-15 Sekunden als Hintergrund bei der Anmeldung einblenden, dass die User zu verschiedenen Security-Themen sensibilisiert.
Der bisherige Code:
Const HKEY_CURRENT_USER = &H80000001
strComputer = "."
Set wshShell = WScript.CreateObject("WScript.Shell")
Set objReg = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
strValue = "C:\WINDOWS\screensaver\Wallpaper1.bmp"
strKeyPath = "Control Panel\Desktop"
ValueName = "Wallpaper"
objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, ValueName, strValue
wshShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True
WScript.sleep 10000
strValue = ""
objReg.SetStringValue HKEY_CURRENT_USER, strKeyPath, ValueName, strValue
wshShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True
Das Bild wird mit diesem Code 10 Sekunden angezeigt - jedoch leider Gestreckt. Wir hätten das gerne zentriert.. ist ja nur ne Kleinigkeit, aber habe dazu nichts gefunden.
Wäre super wenn mir da jemand kurz helfen könnte.
Vielen Dank schon einmal.
Viele Grüße,
D.B.
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 120161
Url: https://administrator.de/contentid/120161
Ausgedruckt am: 19.11.2024 um 05:11 Uhr
1 Kommentar