You are not logged in. [Log In] KiXtart.org website » Forums » KiXtart » Advanced Scripting » Win98 Screen Saver script
Register User       Forum List       Calendar       FAQ
Page 1 of 1 1
Topic Options
#64259 - 2002-04-05 08:12 AM Win98 Screen Saver script
OliverK Offline
Lurker

Registered: 2002-03-20
Posts: 1
Loc: Australia
I am trying to deploy a company screensaver to the desktops of all users, approx 300. I can get the logon script to download through login but how do I change the Display Properties to always use this screensaver. When the screensaver is downloaded at login at the moment i need to manually set the new screensaver, but if a user can change it and so if i can set it to run at logon and always make sure this screensaver is set.

Workstations are Win2k, Win98, Win98SE and a few Win95
Top
#64260 - 2002-04-07 01:39 AM Re: Win98 Screen Saver script
MCA Offline
KiX Supporter
*****

Registered: 2000-04-28
Posts: 5152
Loc: Netherlands, EU
Dear,

Welcome to the board.

We are using following code to influence screen saver settings.
We have define two groups
  • "ScreenSaverActive"
  • "ScreenSaverSecure"
Also we influence the HKU/.Default.
At least we are changing the default settings for specified screen saver.
Following idea may give you ideas about implementation.
code:
    $ikey="HKEY_CURRENT_USER\Control Panel\Desktop"
    IF (ExistKey($ikey) = 0)
      $ikey_ex="ScreenSaveTimeOut"
      $ivalue="300"
      IF (ReadValue($ikey, $ikey_ex) <> $ivalue)
        IF (writevalue($ikey, $ikey_ex, $ivalue, "REG_SZ") <> 0)
        ENDIF
      ENDIF
      ;
      $ikey_ex="ScreenSaveActive"
      IF (INGROUP("ScreenSaverActive") = 1) OR (INGROUP("ScreenSaverActive") = 2) OR
         (INGROUP("ScreenSaverSecure") = 1) OR (INGROUP("ScreenSaverSecure") = 2)
        $ivalue="1"
      ELSE
        $ivalue="0"
      ENDIF
      IF (ReadValue($ikey, $ikey_ex) <> $ivalue)
        IF (writevalue($ikey, $ikey_ex, $ivalue, "REG_SZ") <> 0)
        ENDIF
      ENDIF
      ;
      $ikey_ex="ScreenSaverIsSecure"
      IF (INGROUP("ScreenSaverSecure") = 1)
        $ivalue="1"
      ELSE
        $ivalue="0"
      ENDIF
      IF (ReadValue($ikey, $ikey_ex) <> $ivalue)
        IF (writevalue($ikey, $ikey_ex, $ivalue, "REG_SZ") <> 0)
        ENDIF
      ENDIF
      ;
      $ikey_ex="scrnsave.exe"
      $ivalue="c:\winnt\system32\ssmarque.scr"
      IF (LCASE(ReadValue($ikey, $ikey_ex)) <> $ivalue)
        IF (writevalue($ikey, $ikey_ex, $ivalue, "REG_SZ") <> 0)
        ENDIF
      ENDIF
    ENDIF
    ;
    $ikey="HKEY_USERS\.Default\Control Panel\Desktop"
    IF (ExistKey($ikey) = 0)
      $ikey_ex="ScreenSaveTimeOut"
      $ivalue="300"
      IF (ReadValue($ikey, $ikey_ex) <> $ivalue)
        IF (writevalue($ikey, $ikey_ex, $ivalue, "REG_SZ") <> 0)
        ENDIF
      ENDIF
      ;
      $ikey_ex="ScreenSaveActive"
      IF (INGROUP("ScreenSaverActive") = 1) OR (INGROUP("ScreenSaverActive") = 2) OR
         (INGROUP("ScreenSaverSecure") = 1) OR (INGROUP("ScreenSaverSecure") = 2)
        $ivalue="1"
      ELSE
        $ivalue="0"
      ENDIF
      IF (ReadValue($ikey, $ikey_ex) <> $ivalue)
        IF (writevalue($ikey, $ikey_ex, $ivalue, "REG_SZ") <> 0)
        ENDIF
      ENDIF
      ;
      $ikey_ex="ScreenSaverIsSecure"
      IF (INGROUP("ScreenSaverSecure") = 1)
        $ivalue="1"
      ELSE
        $ivalue="0"
      ENDIF
      IF (ReadValue($ikey, $ikey_ex) <> $ivalue)
        IF (writevalue($ikey, $ikey_ex, $ivalue, "REG_SZ") <> 0)
        ENDIF
      ENDIF
      ;
      $ikey_ex="scrnsave.exe"
      $ivalue="c:\winnt\system32\ssmarque.scr"
      IF (LCASE(ReadValue($ikey, $ikey_ex)) <> $ivalue)
        IF (writevalue($ikey, $ikey_ex, $ivalue, "REG_SZ") <> 0)
        ENDIF
      ENDIF
    ENDIF
;
    $ikey="HKEY_CURRENT_USER\Control Panel\Screen Saver.Marquee"
    IF (ExistKey($ikey) = 0)
      $ikey_ex="Attributes"
      $ivalue="00111" ; - random, cursive, fat -
      IF (ReadValue($ikey, $ikey_ex) <> $ivalue)
        IF (writevalue($ikey, $ikey_ex, $ivalue, "REG_SZ") <> 0)
        ENDIF
      ENDIF
      ;
      $ikey_ex="Backgroundcolor"
      $ivalue="0 0 0"
      IF (ReadValue($ikey, $ikey_ex) <> $ivalue)
        IF (writevalue($ikey, $ikey_ex, $ivalue, "REG_SZ") <> 0)
        ENDIF
      ENDIF
      ;
      $ikey_ex="CharSet"
      $ivalue="0"
      IF (ReadValue($ikey, $ikey_ex) <> $ivalue)
        IF (writevalue($ikey, $ikey_ex, $ivalue, "REG_SZ") <> 0)
        ENDIF
      ENDIF
      ;
      $ikey_ex="Font"
      $ivalue="Times New Roman"
      IF (ReadValue($ikey, $ikey_ex) <> $ivalue)
        IF (writevalue($ikey, $ikey_ex, $ivalue, "REG_SZ") <> 0)
        ENDIF
      ENDIF
      ;
      $ikey_ex="Mode"
      $ivalue="1"
      IF (ReadValue($ikey, $ikey_ex) <> $ivalue)
        IF (writevalue($ikey, $ikey_ex, $ivalue, "REG_SZ") <> 0)
        ENDIF
      ENDIF
      ;
      $ikey_ex="Size"
      $ivalue="72"
      IF (ReadValue($ikey, $ikey_ex) <> $ivalue)
        IF (writevalue($ikey, $ikey_ex, $ivalue, "REG_SZ") <> 0)
        ENDIF
      ENDIF
      ;
      $ikey_ex="Speed"
      $ivalue="2"
      IF (ReadValue($ikey, $ikey_ex) <> $ivalue)
        IF (writevalue($ikey, $ikey_ex, $ivalue, "REG_SZ") <> 0)
        ENDIF
      ENDIF
      ;
      $ikey_ex="Text"
      $ivalue="Busy ..."
      IF (ReadValue($ikey, $ikey_ex) <> $ivalue)
        IF (writevalue($ikey, $ikey_ex, $ivalue, "REG_SZ") <> 0)
        ENDIF
      ENDIF
      ;
      $ikey_ex="TextColor"
      $ivalue="0 128 128"
      IF (ReadValue($ikey, $ikey_ex) <> $ivalue)
        IF (writevalue($ikey, $ikey_ex, $ivalue, "REG_SZ") <> 0)
        ENDIF
      ENDIF
    ENDIF
In your situation you can replace current SCR file and search what the other
changes are.
greetings.
_________________________
email scripting@wanadoo.nl homepage scripting@wanadoo.nl | Links | Summary of Site Site KiXforms FAQ kixtart.org library collection mirror MCA | FAQ & UDF help file UDF kixtart.org library collection mirror MCA | mirror USA | mirror europe UDF scriptlogic library collection UDFs | mirror MCA

Top
Page 1 of 1 1


Moderator:  Glenn Barnas, NTDOC, Arend_, Jochen, Radimus, Allen, ShaneEP, Ruud van Velsen, Mart 
Hop to:
Shout Box

Who's Online
1 registered (Allen) and 957 anonymous users online.
details
Newest Members
ManuvdWielNL, Sir_Barrington, batdk82, StuTheCoder, M_Moore
17887 Registered Users
My Cookies · Mark all read Powered by UBB.threads™ Contact Us · KiXtart.org website · Top

Generated in 0.053 seconds in which 0.028 seconds were spent on a total of 12 queries. Zlib compression enabled.
Search the board with:
superb Board Search
or try with google:
Google
Web kixtart.org