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