+ Post New Thread
Results 1 to 4 of 4
Scripts Thread, Using VB to set Active Desktop/IE Wallpaper in Coding and Web Development; Hello everyone. I have a script which sets the background on Windows XP but the problem is that it only ...
  1. #1
    BKGarry's Avatar
    Join Date
    Mar 2006
    Location
    Kent
    Posts
    923
    Thank Post
    94
    Thanked 119 Times in 96 Posts
    Rep Power
    47

    Using VB to set Active Desktop/IE Wallpaper

    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

  2. #2

    Ric_'s Avatar
    Join Date
    Jun 2005
    Location
    London
    Posts
    7,596
    Thank Post
    109
    Thanked 764 Times in 595 Posts
    Rep Power
    181

    Re: Using VB to set Active Desktop/IE Wallpaper

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

  3. #3
    BKGarry's Avatar
    Join Date
    Mar 2006
    Location
    Kent
    Posts
    923
    Thank Post
    94
    Thanked 119 Times in 96 Posts
    Rep Power
    47

    Re: Using VB to set Active Desktop/IE Wallpaper

    It won't work would be the main reason lol

  4. #4

    Join Date
    Mar 2006
    Location
    Greater Manchester
    Posts
    218
    Thank Post
    5
    Thanked 0 Times in 0 Posts
    Rep Power
    0

    Re: Using VB to set Active Desktop/IE Wallpaper

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

SHARE:
+ Post New Thread

Similar Threads

  1. IE7 Active Desktop Problem
    By mseaney in forum Windows
    Replies: 11
    Last Post: 28th November 2007, 03:04 PM
  2. Problem loosing Active Desktop wallpaper
    By Kyle in forum Windows
    Replies: 11
    Last Post: 14th November 2007, 02:21 PM
  3. Active Desktop - HELP!
    By wesleyw in forum Windows
    Replies: 2
    Last Post: 6th September 2006, 07:56 PM
  4. Active Desktop
    By wesleyw in forum How do you do....it?
    Replies: 17
    Last Post: 24th July 2006, 02:05 PM
  5. Active Desktop Wallpaper problem
    By WithoutMotive in forum Wireless Networks
    Replies: 2
    Last Post: 29th June 2006, 07:10 PM

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •