Using VB to set Active Desktop/IE Wallpaper

[BKGarry]

Hello everyone.

 

I have a script which sets the background on Windows XP but the problem is that it only does it for the standard desktop but i have active desktop enabled so no program can change the backround permanatly for that logon period.

 

Does anyone have a script to implement the backround on the Active Desktop and not just the standard bitmap behind.

 

Garry

 

PS Current Script here

***********************************************

 

Option Explicit

 

Dim objFileCopy, objFSO, objShell1, objShell2

 

Dim strRegRootA, strRegRootB

 

 

 

strRegRootA = "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Desktop\General\"

 

strRegRootB = "HKEY_CURRENT_USER\Control Panel\Desktop\"

 

 

 

'Set objShell1 = CreateObject("WScript.Shell")

 

'objShell1.Run "C:\Windows\Resources\Themes\luna.theme"

 

'WScript.Sleep 1000

 

'objShell1.SendKeys "{ENTER}"

 

 

 

Set objShell2 = WScript.CreateObject("WScript.Shell")

 

objShell2.RegWrite strRegRootA & "BackupWallpaper", "\\FSERVER\NETLOGON\Backgrounds\pupil.bmp"

 

objShell2.RegWrite strRegRootA & "Wallpaper", "\\FSERVER\NETLOGON\Backgrounds\pupil.bmp"

 

objShell2.RegWrite strRegRootB & "Wallpaper", "\\FSERVER\NETLOGON\Backgrounds\pupil.bmp"

 

objShell2.Run "%windir%\System32\RUNDLL32.exe user32.dll,UpdatePerUserSystemParameters", 1, False

 

 

 

Set objShell1 = Nothing

 

Set objShell2 = Nothing

 

Set objFileCopy = Nothing

 

Set objFSO = Nothing

 

 

 

WScript.Quit

[Ric_]

Is there a reason for you not just setting these settings in the GPO for the pupils' OU?

[BKGarry]

It won't work would be the main reason lol

[CM786]

Do you have "Enable Classic Shell" turned on in Group Policy? If so, any enable Active Desktop group policy won't work.