Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations IamaSherpa on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

How do i do a vbscript to change my desktop wallpaper ??? 1

Status
Not open for further replies.

htejada

Programmer
Jul 13, 2001
4
MX
How do i do a vbscript to change my desktop wallpaper when my computer start ???; because my sys admin changed each time i logged in %-( .

Thanks in advance .... :-D
 
Why do you want to use vbscript? _________________
Bixarrio

e = m * (c ^ 2)
 
Try this:

Code:
Option Explicit

Public wscr
Public Const Wallpaper = "C:\Program Files\Bixarrio's Wallpaper Rotator\wallpaper.bmp"

Set wscr = CreateObject("WScript.Shell")

wscr.RegWrite "HKEY_CURRENT_USER\Control Panel\Desktop\Wallpaper", Wallpaper
wscr.Popup "Wallpaper Changed!"

Set wscr = Nothing
_________________
Bixarrio

e = m * (c ^ 2)
 
Oops. Ummm. Change the Wallpaper Const to the location of your wallpaper. _________________
Bixarrio

e = m * (c ^ 2)
 
Thanks Bixarrio, I did yours instrunctions and worked great !!!! s-)

Just, How i do for take changes inmediatly ???, I mean your script change the wallpaper but i had to "apply properties" manually..

Do you know how i can do this in the script ???


P.S. Other question, In you first reply you wrote some like Why I choose VB script to do that, i wonder, Is the best way to do that???

P.S 2 You would tell me the Reg Path to change the screen saver too !!!



Thank YOU !!!!! :-0
 
Hmmm. I'l have a look at the automatic apply part. I dunno why it's not working.

______________________________________

the screensaver path, doesn't exist if you have no screensaver loaded.

replace the "wallpaper" in the above example to "SCRNSAVER.EXE" and the value is the full path to the screensaver.

______________________________________

I dunno which is the best language. I would have used VB (since I know it best) to do this. _________________
Bixarrio

e = m * (c ^ 2)
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top