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 TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

GPO and sceen saver settings

Status
Not open for further replies.

BigAl68

Technical User
Jul 6, 2001
19
GB
Can any one help, I have set a default screen saver using Group Policy, have set the default to ssmarque, which is picked up fine. The only problem is the configurating, text size, message ect are nor past to all the users from the central point. any surgestions
 
Code:
'==========================================================================
'
' NAME: SetMarqueeScrSettings.vbs
'
' AUTHOR: Mark D. MacLachlan , The Spider's Parlor
' URL: [URL unfurl="true"]http://www.thespidersparlor.com[/URL]
' DATE  : 8/11/2004
'
' COMMENT: <comment>
'
'==========================================================================
Dim path

Set WSHShell = Wscript.CreateObject("WScript.Shell")

'set the key path here.  IF you don't end with a '\' then WSH assumes you are pathing to a value. 
path = "HKCU\Control Panel\Screen Saver.Marquee\"


WSHShell.RegWrite path & "BackgroundColor","0 18 128","REG_SZ"
WSHShell.RegWrite path & "CharSet","0","REG_SZ"
WSHShell.RegWrite path & "Font","Tahoma","REG_SZ"
WSHShell.RegWrite path & "Mode","1","REG_SZ"
WSHShell.RegWrite path & "Size","24","REG_SZ"
WSHShell.RegWrite path & "Speed","14","REG_SZ"

' the next line contains the marquee text to display.
WSHShell.RegWrite path & "Text","This is the screen saver text","REG_SZ"
WSHShell.RegWrite path & "TextColor","255 0 255","REG_SZ"
WSHShell.RegWrite path & "Attributes","00000","REG_SZ"

I hope you find this post helpful.

Regards,

Mark
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top