3D Flying Objects ScreenSaver

[Guest]

I have set up the 3D flying Objects Screensaver so that it displays the
company logo.

However, the firm has other departments, all with their own logos, and I
would like to deploy the settings with group policy so that depending on what
department they are in depends which logo is displayed with the 3D flying
objects screen Saver

any ideas?

 

[kenny]

just a suggestion... if the monitors are CRT I would say use power options
to turn the monitors off instead of a screensaver...

depending on the size of that company they can save money and be
enviromentaly friendly.

Even TFT go from 30 watts to 3 or 5 when in stand by.

We are burning fossil fules to have logos that noone cares to see?

there is of course a possibility that people will forget the computers on...

anyway.. just an idea

 

[Guest]

all PC's are made out of recycled paper, all cables are made out of straw,
and when it becomes faulty, is used to feed the horses.

The building is completly self-efficent, and generates its own water, and
power supply through the use of water treatment centres and solar panels.

All Users were given an electric car when they joined the firm.

Still doesn't solve my Screensaver problem though!!! lol

Cheers for the Environmentally-Friendly advise - I would normally recommend
the same thing, however, our users are.........unique - in that if the screen
went off, they would all assume it was the apocolapyse, and run out the
building screaming.

Bless 'em all

 

[David Candy]

Logon script. Here's one doing the 3DText screensaver (and map drives, install printers etc).

There are two companies here, and I just delete the lines not applying to that company. The scripts are assigned on an Organisation Unit level.


On Error Resume Next
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set WshShell = WScript.CreateObject("WScript.Shell")
strDriveHarasty = "Z:"
strDriveMorestaff = "Y:"

WshNetwork.MapNetworkDrive strDriveHarasty, "\\Server5\Share"
ReportErrors "Mapping Drive."
WshNetwork.MapNetworkDrive strDriveMorestaff, "\\Server5\Share"
ReportErrors "Mapping Drive."

WshNetwork.AddWindowsPrinterConnection "\\davidcan\HP Laser Jet 6L"
ReportErrors "Adding Printer."
WshNetwork.SetDefaultPrinter "\\h8\HP Laser Jet 6L"
ReportErrors "Setting Default Printer."

WshShell.RegWrite "HKEY_CURRENT_USER\Control Panel\Desktop\ScreenSaveTimeOut", "209"
ReportErrors "Setting Screen Save SS Timeout Failed."

WshShell.RegWrite "HKEY_CURRENT_USER\Control Panel\Desktop\ScreenSaveActive", "1"
ReportErrors "Setting Screen Save SS Active Failed."

WshShell.RegWrite "HKEY_CURRENT_USER\Control Panel\Desktop\ScreenSaveIsSecure", "1"
ReportErrors "Setting Screen Save IsSecure Failed."

WshShell.RegWrite "HKEY_CURRENT_USER\Control Panel\Desktop\ScreenSave.Exe", "F:\\WINNT\\System32\\ssmarque.scr"
ReportErrors "Setting Screen Save Scrnsave exe Failed."

WshShell.RegWrite "HKEY_CURRENT_USER\Control Panel\Screen Saver.Marquee\BackgroundColor", "0 128 128"
ReportErrors "Setting Screen Save BackgroundColor Failed."

WshShell.RegWrite "HKEY_CURRENT_USER\Control Panel\Screen Saver.Marquee\Font", "Times New Roman"
ReportErrors "Setting Screen Save Font Failed."

WshShell.RegWrite "HKEY_CURRENT_USER\Control Panel\Screen Saver.Marquee\Mode", "1"
ReportErrors "Setting Screen Save Mode Failed."

WshShell.RegWrite "HKEY_CURRENT_USER\Control Panel\Screen Saver.Marquee\Size", "72"
ReportErrors "Setting Screen Save Size Failed."

WshShell.RegWrite "HKEY_CURRENT_USER\Control Panel\Screen Saver.Marquee\TextColor", "192 192 192"
ReportErrors "Setting Screen Save TextColor Failed."

WshShell.RegWrite "HKEY_CURRENT_USER\Control Panel\Screen Saver.Marquee\Attributes", "00001"
ReportErrors "Setting Screen Save Attribute Failed."

WshShell.RegWrite "HKEY_CURRENT_USER\Control Panel\Screen Saver.Marquee\Speed", "8"
ReportErrors "Setting Screen Speed Text Failed."

WshShell.RegWrite "HKEY_CURRENT_USER\Control Panel\Screen Saver.Marquee\Text", "M O R E S T A F F"
ReportErrors "Setting Screen Save Text (Morestaff) Failed."
WshShell.RegWrite "HKEY_CURRENT_USER\Control Panel\Screen Saver.Marquee\Text","H A R A S T Y S"
ReportErrors "Setting Screen Save Text (Harastys) Failed."

Sub ReportErrors(ErrText)
If err.number <> 0 then
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.LogEvent 1, ErrText & " Error code " & err.number & " (" & err.description & ")"
Err.clear
End If
End Sub