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:

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.