Follow us on Twitter!
I'd prefer to die standing, than to live on my knees - Che Guevara
Friday, April 25, 2014
Navigation
Home
HellBoundHackers Main:
HellBoundHackers Find:
HellBoundHackers Information:
Learn
Communicate
Submit
Shop
Challenges
HellBoundHackers Exploit:
HellBoundHackers Programming:
HellBoundHackers Think:
HellBoundHackers Track:
HellBoundHackers Patch:
HellBoundHackers Other:
HellBoundHackers Need Help?
Other
Members Online
Total Online: 18
Guests Online: 15
Members Online: 3

Registered Members: 82909
Newest Member: awais
Latest Articles
View Thread

HellBound Hackers | Computer General | Trouble Shooting

Author

Set a wallpaper @ Xp machine by script.


Member

Your avatar

Posts:
Location:
Joined: 01.01.70
Rank:
Guest
Posted on 01-08-07 11:07
hey every1. B)

i got a problem. the place there i work we have win 2k. they work fine whit our policys. tho we are in the phase to go over to xp plattform. so the policys doesnt work on xp....

so now i need a script to be run at those xp machines to set a different wallpaper than the one on the 2k machines.

and no i wont make an other policy. (just working here for the summer... Wink)

Any ideas?

Greets T0bbz0n

Edited by on 01-08-07 11:29
Author

RE: Set a wallpaper @ Xp machine by script.


Member

Your avatar

Posts:
Location:
Joined: 01.01.70
Rank:
Guest
Posted on 01-08-07 11:11
Check google, a few days ago I came accross a site with a bunch of articles, one of which was about this.


Author

RE: Set a wallpaper @ Xp machine by script.


Member

Your avatar

Posts:
Location:
Joined: 01.01.70
Rank:
Guest
Posted on 01-08-07 11:12
i searched before i made the thread... know where it were?
Author

RE: Set a wallpaper @ Xp machine by script.


Member

Your avatar

Posts:
Location:
Joined: 01.01.70
Rank:
Guest
Posted on 01-08-07 11:21
I found the code, it was actually designed to change the background when the desktop properties window is disabled.

Code

Dim strFileName, strPath, strFilter

msgbox "Information:" & vbcrlf & vbcrlf & "Following this message box " & _
    "a dialog box will open, choose the picture you want to set as " & _
    "the desktop wall paper and click open", VbInformation, _
    "VBS Wallpaper Change - Info"

strPath = "C:\"
strFilter = ""
sFileName = openDialog(sPath,sFilter)

if sFileName = "" then

    msgbox "Desktop wallpaper file not specified, Wallpaper not changed", VbInformation, _
    "VBS Wallpaper Change - Error"

else

    Set oShell = CreateObject("WScript.Shell")

    ' update in registry
    oShell.RegWrite "HKCU\Control Panel\Desktop\Wallpaper", sFileName

    ' let the system know about the change
    oShell.Run "%windir%\System32\RUNDLL32.EXE user32.dll,UpdatePerUserSystemParameters", 1, True

end if

Function openDialog(sPath,sFilter)
    Dim oCD, intResult
    Set oCD = CreateObject("UserAccounts.CommonDialog")
    oCD.Filter = sFilter
    oCD.InitialDir = sPath
    oCD.Flags = &H80000 + &H4 + &H8
    intResult = oCD.ShowOpen
    openDialog = oCD.FileName
End Function




Save as whatever.vbs

I'm sure you can tweak it so that it forces a certain background picture at user logon ;)




Edited by on 01-08-07 11:52
Author

RE: Set a wallpaper @ Xp machine by script.


Member

Your avatar

Posts:
Location:
Joined: 01.01.70
Rank:
Guest
Posted on 01-08-07 11:25
thx man that perfect! ill be back if there is any problem Wink
Author

RE: Set a wallpaper @ Xp machine by script.

AldarHawk
Member



Posts: 1690
Location: Canada
Joined: 26.01.06
Rank:
Hacker Level 1
Posted on 01-08-07 13:52
This is also a good script to set up if you want a random background every time you log in. Just add a small set that will randomly choose a number from 1 - 10 and have all those numbers assign to a different background. again you will have to substitute your openDialog bit as well and know about VBScript


Just ask Yahoo!Taboo! http://www.erikwestlake.com