deboe1986
Goto Top

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.

Content-ID: 120161

Url: https://administrator.de/contentid/120161

Ausgedruckt am: 19.11.2024 um 05:11 Uhr

Berrnd
Berrnd 10.07.2009 um 08:46:55 Uhr
Goto Top
Hi,

das ganze wird unter dem gleichen Pfad mit der Zeichenfolge "WallpaperStyle" gesteuert. (0 = Zentriert, 2 = Gestreckt)

Gruß
Bernd