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.
Please also mark the comments that contributed to the solution of the article
Content-Key: 120161
Url: https://administrator.de/contentid/120161
Printed on: April 26, 2024 at 03:04 o'clock
1 Comment