You are not logged in. [Log In] KiXtart.org website » Forums » KiXtart » Basic Scripting » Logon Script Registry Adds
Register User       Forum List       Calendar       FAQ
Page 1 of 1 1
Topic Options
#23138 - 2002-06-13 03:44 PM Logon Script Registry Adds
Anonymous
Unregistered


I have added aout 10 registry entries through the logon script in NT and 95. What I am exeriencing is users complaining about there systems taking long periods of time to shut down (in NT). The lines I added were related to screen savers and desktops. Any insight would be appreciated.
Thanks

code:
IF @INWIN = 2

IF Exist("c:\windows\mhslogo.bmp") = 1
ELSE
run "copy95.bat"
ENDIF   

$rc = WriteValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\INTERNET EXPLORER\MAIN", "Start Page", "mercynet.mercyhealth.org", "REG_SZ")

$rc = WriteValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\INTERNET SETTINGS\", "ProxyEnable", "1", "REG_DWORD")

$rc = WriteValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\INTERNET SETTINGS\", "ProxyServer", "mhsfirewall:80", "REG_SZ")

$rc = WriteValue("HKEY_CURRENT_USER\Control Panel\Desktop\", "Wallpaper", "c:\windows\mhslogo.bmp", "REG_SZ")

$rc = WriteValue("HKEY_CURRENT_USER\Control Panel\General\", "BackupWallpaper", "c:\windows\mhslogo.bmp", "REG_EXPAND_SZ")

$rc = WriteValue("HKEY_CURRENT_USER\Control Panel\General\", "Wallpaper", "c:\windows\mhslogo.bmp", "REG_EXPAND_SZ")

$rc = WriteValue("HKEY_CURRENT_USER\Control Panel\Desktop\", "ScreenSaveActive", "1", "REG_SZ")

$rc = WriteValue("HKEY_CURRENT_USER\Control Panel\Desktop\", "ScreenSaverIsSecure", "1", "REG_SZ")

$rc = WriteValue("HKEY_CURRENT_USER\Control Panel\Desktop\", "ScreenSaveTimeOut", "600", "REG_SZ")

$rc = WriteValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\Policies\Explorer\", "NoActiveDesktop", "1", "REG_DWORD")

$rc = WriteValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\Policies\Explorer\", "NoChangingWallpaper", "1", "REG_DWORD")

$rc = AddKey("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\Policies\System\")

;$rc = WriteValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\Policies\System\", "NoDispScrSavPage", "1", "REG_DWORD")

;$rc = WriteValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\Policies\System\", "NoDispSettings", "1", "REG_DWORD")

$rc = WriteValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\Policies\System\", "NoDispBackgroundPage", "1", "REG_DWORD")

ELSE

IF Exist("%systemroot%\mhslogo.bmp") = 1
ELSE
run "copynt.bat"
ENDIF   

$rc = WriteValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\INTERNET EXPLORER\MAIN", "Start Page", "mercynet.mercyhealth.org", "REG_SZ")

$rc = WriteValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\INTERNET SETTINGS\", "ProxyEnable", "1", "REG_DWORD")

$rc = WriteValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\INTERNET SETTINGS\", "ProxyServer", "mhsfirewall:80", "REG_SZ")

$rc = WriteValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\Policies\Explorer\", "NoActiveDesktop", "1", "REG_DWORD")

$rc = WriteValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\Policies\Explorer\", "NoChangingWallpaper", "1", "REG_DWORD")

$rc = AddKey("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\Policies\System\")

;$rc = WriteValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\Policies\System\", "NoDispScrSavPage", "1", "REG_DWORD")

;$rc = WriteValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\Policies\System\", "NoDispSettingsPage", "1", "REG_DWORD")

$rc = WriteValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\Policies\System\", "NoDispBackgroundPage", "1", "REG_DWORD")

$rc = WriteValue("HKEY_CURRENT_USER\Control Panel\Desktop\", "Wallpaper", "%systemroot%\mhslogo.bmp", "REG_SZ")

$rc = WriteValue("HKEY_CURRENT_USER\Control Panel\General\", "BackupWallpaper", "%systemroot%\mhslogo.bmp", "REG_EXPAND_SZ")

$rc = WriteValue("HKEY_CURRENT_USER\Control Panel\General\", "Wallpaper", "%systemroot%\mhslogo.bmp", "REG_EXPAND_SZ")

$rc = WriteValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Desktop\General\", "Wallpaper", "%systemroot%\mhslogo.bmp", "REG_EXPAND_SZ")

$rc = WriteValue("HKEY_CURRENT_USER\Control Panel\Desktop\", "ScreenSaveActive", "1", "REG_SZ")

$rc = WriteValue("HKEY_CURRENT_USER\Control Panel\Desktop\", "ScreenSaverIsSecure", "1", "REG_SZ")

$rc = WriteValue("HKEY_CURRENT_USER\Control Panel\Desktop\", "SCRNSave.exe", "%systemroot%\logon.scr", "REG_SZ")

$rc = WriteValue("HKEY_CURRENT_USER\Control Panel\Desktop\", "ScreenSaveTimeOut", "600", "REG_SZ")

$ReturnCode = Delkey("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\MACROSOFT")
If $ReturnCode = 0
	? "Key Deleted..."
Endif

$ReturnCode = Delkey("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN")
If $ReturnCode = 0
	? "Key Deleted..."
Endif
RUN INOCULAN.BAT
RUN APOST.BAT

;IF INGROUP ("WINDOWS95")
;     RUN WIN95.BAT
;ENDIF

IF INGROUP ("LAN 23 USERS")
   USE Q: "\\MHS_LAN23\SMSLAN23"
ENDIF

IF INGROUP ("Net Plus Users")
   USE V: "\\MHS_LAN23\NETPLUS"
ENDIF

IF INGROUP ("EMMA Paramedics")
   USE P: "\\MHS_INVISION\EMMA"
ENDIF

IF INGROUP ("INOCULAN ANTIVIRUS")
    RUN INOCULAN.BAT
ENDIF

IF INGROUP ("Document Imaging")
   USE L: "\\IMS-NT\SMS_CARE"
ENDIF

IF INGROUP ("MEDREC II")
   USE R: "\\MHS_MEDREC\MEDREC"
ENDIF

IF INGROUP ("SOFTMED SDR")
   USE P: "\\MHS_SOFTMED_SDR\SOFTMED"
ENDIF

IF INGROUP ("MHS EIS AUTO")
   RUN EISCOPY.BAT
ENDIF

IF INGROUP ("ED Logging System")
   USE M: "\\MHS_CASEWISE\ED Log Software"
ENDIF

IF INGROUP ("PREMISE USERS")
   USE T: "\\MHS_PREMISE\NDC"
   USE U: "\\MHS_PREMISE\PVSW"
ENDIF

;USE X: "\\MHS_STORAGE_001\PUBLIC"
;USE Y: "\\MHS_STORAGE_001\PUBLIC"
;USE Z: "\\MHS_STORAGE_001\PUBLIC"

IF INGROUP ("ITT TECHROOM")
   ADDPRINTERCONNECTION ("\\MHS_STORAGE_001\ITT TECHROOM")
ENDIF
(MCA: add CODE for pretty layout/previous update of swalker4159 was 13/6/2002 17:15)

[ 17 June 2002, 10:43: Message edited by: MCA ]
Top
#23139 - 2002-06-13 03:47 PM Re: Logon Script Registry Adds
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
it would perhaps help if you could post the lines here.

cheers,
_________________________
!

download KiXnet

Top
#23140 - 2002-06-13 03:49 PM Re: Logon Script Registry Adds
Radimus Moderator Offline
Moderator
*****

Registered: 2000-01-06
Posts: 5187
Loc: Tampa, FL
well... users compain just to have something to have something to say.

And if you change their wallpaper and screensavers, they will look for any excuse to get their stuff back.

of course, depending on what you gave them and if they have roaming profiles, that stuff would have to be uploaded.

Post your code...

[ 13 June 2002, 15:51: Message edited by: Radimus ]
_________________________
How to ask questions the smart way <-----------> Before you ask

Top
#23141 - 2002-06-13 03:50 PM Re: Logon Script Registry Adds
Sealeopard Offline
KiX Master
*****

Registered: 2001-04-25
Posts: 11165
Loc: Boston, MA, USA
Please post the registry entries thay you midfied. Normally, registry changes should not influence logoff events.

Is it possible that it takes some time for the workstation to write the roaming profile back to the server that is housing the roaming profiles. Or are there any applications running in the background that take some time to close?

KiXtart itself will most likely have nothing to do with the logoff/shutdown problem since it doesn't run during shutdown.

Another option could be that you enabled 'Clear Pagefile at Shutdown' which, especially with large pagfe files' will cause a considerable delay before the shutdown is complete. Where exactly is the delay occuring, during logoff, or during shutdown. They are basically two different events.

[ 13 June 2002, 15:51: Message edited by: sealeopard ]
_________________________
There are two types of vessels, submarines and targets.

Top
#23142 - 2002-06-17 11:08 AM Re: Logon Script Registry Adds
MCA Offline
KiX Supporter
*****

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

We have take a look at your script. With our tool kixstrip we discover
a problem with your IF/ENDIF structure.

code:
 IF @inwin = 2
       IF Exist("c:\windows\mhslogo.bmp") = 1
       ELSE
             RUN "copy95.bat"
       ENDIF
       $rc = WriteValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\INTERNET EXPLORER\MAIN", "Start Page", "mercynet.mercyhealth.org", "REG_SZ")
       $rc = WriteValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\INTERNET SETTINGS\", "ProxyEnable", "1", "REG_DWORD")
       $rc = WriteValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\INTERNET SETTINGS\", "ProxyServer", "mhsfirewall:80", "REG_SZ")
       $rc = WriteValue("HKEY_CURRENT_USER\Control Panel\Desktop\", "Wallpaper", "c:\windows\mhslogo.bmp", "REG_SZ")
       $rc = WriteValue("HKEY_CURRENT_USER\Control Panel\General\", "BackupWallpaper", "c:\windows\mhslogo.bmp", "REG_EXPAND_SZ")
       $rc = WriteValue("HKEY_CURRENT_USER\Control Panel\General\", "Wallpaper", "c:\windows\mhslogo.bmp", "REG_EXPAND_SZ")
       $rc = WriteValue("HKEY_CURRENT_USER\Control Panel\Desktop\", "ScreenSaveActive", "1", "REG_SZ")
       $rc = WriteValue("HKEY_CURRENT_USER\Control Panel\Desktop\", "ScreenSaverIsSecure", "1", "REG_SZ")
       $rc = WriteValue("HKEY_CURRENT_USER\Control Panel\Desktop\", "ScreenSaveTimeOut", "600", "REG_SZ")
       $rc = WriteValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\Policies\Explorer\", "NoActiveDesktop", "1", "REG_DWORD")
       $rc = WriteValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\Policies\Explorer\", "NoChangingWallpaper", "1", "REG_DWORD")
       $rc = AddKey("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\Policies\System\")
      ;$rc = WriteValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\Policies\System\", "NoDispScrSavPage", "1", "REG_DWORD")
      ;$rc = WriteValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\Policies\System\", "NoDispSettings", "1", "REG_DWORD")
       $rc = WriteValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\Policies\System\", "NoDispBackgroundPage", "1", "REG_DWORD")
 ELSE
       IF Exist("%systemroot%\mhslogo.bmp") = 1
       ELSE
             RUN "copynt.bat"
       ENDIF
       $rc = WriteValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\INTERNET EXPLORER\MAIN", "Start Page", "mercynet.mercyhealth.org", "REG_SZ")
       $rc = WriteValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\INTERNET SETTINGS\", "ProxyEnable", "1", "REG_DWORD")
       $rc = WriteValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\INTERNET SETTINGS\", "ProxyServer", "mhsfirewall:80", "REG_SZ")
       $rc = WriteValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\Policies\Explorer\", "NoActiveDesktop", "1", "REG_DWORD")
       $rc = WriteValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\Policies\Explorer\", "NoChangingWallpaper", "1", "REG_DWORD")
       $rc = AddKey("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\Policies\System\")
      ;$rc = WriteValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\Policies\System\", "NoDispScrSavPage", "1", "REG_DWORD")
      ;$rc = WriteValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\Policies\System\", "NoDispSettingsPage", "1", "REG_DWORD")
       $rc = WriteValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\Policies\System\", "NoDispBackgroundPage", "1", "REG_DWORD")
       $rc = WriteValue("HKEY_CURRENT_USER\Control Panel\Desktop\", "Wallpaper", "%systemroot%\mhslogo.bmp", "REG_SZ")
       $rc = WriteValue("HKEY_CURRENT_USER\Control Panel\General\", "BackupWallpaper", "%systemroot%\mhslogo.bmp", "REG_EXPAND_SZ")
       $rc = WriteValue("HKEY_CURRENT_USER\Control Panel\General\", "Wallpaper", "%systemroot%\mhslogo.bmp", "REG_EXPAND_SZ")
       $rc = WriteValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Desktop\General\", "Wallpaper", "%systemroot%\mhslogo.bmp", "REG_EXPAND_SZ")
       $rc = WriteValue("HKEY_CURRENT_USER\Control Panel\Desktop\", "ScreenSaveActive", "1", "REG_SZ")
       $rc = WriteValue("HKEY_CURRENT_USER\Control Panel\Desktop\", "ScreenSaverIsSecure", "1", "REG_SZ")
       $rc = WriteValue("HKEY_CURRENT_USER\Control Panel\Desktop\", "SCRNSave.exe", "%systemroot%\logon.scr", "REG_SZ")
       $rc = WriteValue("HKEY_CURRENT_USER\Control Panel\Desktop\", "ScreenSaveTimeOut", "600", "REG_SZ")
       $returncode = Delkey("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\MACROSOFT")
       IF $returncode = 0
             ? "Key Deleted..."
       ENDIF

       $returncode = Delkey("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN")
       IF $returncode = 0
             ? "Key Deleted..."
       ENDIF
       RUN INOCULAN.BAT
       RUN APOST.BAT

       ;IF INGROUP ("WINDOWS95")
       ;     RUN WIN95.BAT
       ;ENDIF

       IF INGROUP ("LAN 23 USERS")
             USE Q: "\\MHS_LAN23\SMSLAN23"
       ENDIF

       IF INGROUP ("Net Plus Users")
             USE V: "\\MHS_LAN23\NETPLUS"
       ENDIF

       IF INGROUP ("EMMA Paramedics")
             USE P: "\\MHS_INVISION\EMMA"
       ENDIF

       IF INGROUP ("INOCULAN ANTIVIRUS")
             RUN INOCULAN.BAT
       ENDIF

       IF INGROUP ("Document Imaging")
             USE L: "\\IMS-NT\SMS_CARE"
       ENDIF

       IF INGROUP ("MEDREC II")
             USE R: "\\MHS_MEDREC\MEDREC"
       ENDIF

       IF INGROUP ("SOFTMED SDR")
             USE P: "\\MHS_SOFTMED_SDR\SOFTMED"
       ENDIF

       IF INGROUP ("MHS EIS AUTO")
             RUN EISCOPY.BAT
       ENDIF

       IF INGROUP ("ED Logging System")
             USE M: "\\MHS_CASEWISE\ED Log Software"
       ENDIF

       IF INGROUP ("PREMISE USERS")
             USE T: "\\MHS_PREMISE\NDC"
             USE U: "\\MHS_PREMISE\PVSW"
       ENDIF

       ;USE X: "\\MHS_STORAGE_001\PUBLIC"
       ;USE Y: "\\MHS_STORAGE_001\PUBLIC"
       ;USE Z: "\\MHS_STORAGE_001\PUBLIC"

       IF INGROUP ("ITT TECHROOM")
             ADDPRINTERCONNECTION ("\\MHS_STORAGE_001\ITT TECHROOM")
       ENDIF

;($begin)
;
;                       mon 17-jun-2002 10:43:07       (kix 4.10 vs 3.04e)
;
;Informative KIXSTRIP:      input=109 output=109 skip=0
;
;Warning     KIXSTRIP:    1 error in block structure. missing statement(s).
;                           - do:until                 [0:0]
;                           - for|each:in|to:step|next [0|0:0|0:0|0]
;                           - function:endfunction     [0:0]
;                   -ERROR- - if:else:endif            [16:3:15]
;                           - select:case:endselect    [0:0:0]
;                           - while:loop               [0:0]
;Warning     KIXSTRIP: some lines contains errors or possible errors.
;Informative KIXSTRIP:   16 block_structures found.
;Informative KIXSTRIP:   no UDF's found.
;Informative KIXSTRIP:   no labels found.
;Summary     KIXSTRIP:      BREAK CALL DEBUG DISPLAY ENDFUNCTION EXECUTE EXIT FUNCTION GET GETS GOSUB GOTO OLExxx PLAY QUIT RETURN RUN SHELL SLEEP THEN USE
;Informative KIXSTRIP:    6 RUN
;Informative KIXSTRIP:    9 USE
;
;($end)
;($begin)
;
;
;($end)
see next reaction for other input and our debugging version.
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
#23143 - 2002-06-17 11:09 AM Re: Logon Script Registry Adds
MCA Offline
KiX Supporter
*****

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

Some suggestions and remarks:
  • You are using RUN statements without quotations. we advice to use
    something like:
    RUN '%comspec% /c inoculan.bat'
  • why you are using RUN instead of SHELL statement. kixtart script will not
    wait for completion of your BATch files.
    we advice to replace RUN statement with:
    SHELL '%comspec% /c inoculan.bat'
  • you are trying to delete the complete HKCU\...\run key. is this
    was you are meaning to do. it can lead to unexpected warnings.
    This key is a major element of your HKCU hive.
  • it is possible that the inoculan.bat file runs twice.
  • it is hard to see what your BATch files are actual doing. can you put
    them on the board. members can possible translate them to real kixtart
    code.
  • it is new for us registry actions are too slow. mostly external actions
    or complex structures slowdown your script. to see how your script is run-
    ning we have add some debugging code to your script.
    Our call was:
    kixstrip input.kix output.kix /debug
    please return the output of file %tmp%\kixdebug.txt on the board.
  • possible that some BATch weren't ending in a correct way. NT mostly wait a fix
    period for completion before shutdown his system.
code:
                                            CLS
                                            COLOR C+/N
                                            AT (1,1) " "
                                            IF RedirectOutput("%tmp%\kixdebug.txt")
                                            ENDIF
                                            ? "-"+LCASE(@day)+" "+@date+" "+@time+"- kixtart "+@kix+"/3.04e script starting."
                                            ? "-"
                                            ? "-curdir:       "+LCASE(@curdir)
                                            ? "-scriptdir:    "+LCASE(@scriptdir)
                                            IF (instr("-4.1x-","-"+substr(@kix,1,3)+"x-") <> 0)
                                              ? "-scriptname:   "+LCASE(@scriptname)
                                            ENDIF
                                            ? "-startdir:     "+LCASE(@startdir)
                                            ? "-"
                                            ? "-userid:       "+LCASE(@userid)+"/"+LCASE(@wuserid)
                                            ? "-user priv:    "+LCASE(@priv)
                                            IF (instr("-4.xx-","-"+substr(@kix,1,2)+"xx-") <> 0)
                                              ? "-version:      inwin="+@inwin+"/dos="+@dos"/productsuite="+@productsuite+"/producttype="+@producttype"/csd="+LTRIM(RTRIM(@csd))
                                            ELSE
                                              ? "-version:      inwin="+@inwin+"/dos="+@dos
                                            ENDIF
                                            ? "-"
?"-     start-"+@time+"- @error @serror "? 

?"-         1-"+@time+"- @error @serror "?  IF @inwin = 2
?"-         2-"+@time+"- @error @serror "? 
?"-         3-"+@time+"- @error @serror "?        IF Exist("c:\windows\mhslogo.bmp") = 1
?"-         4-"+@time+"- @error @serror "?        ELSE
?"-         5-"+@time+"- @error @serror "?              RUN "copy95.bat"
?"-         6-"+@time+"- @error @serror "?        ENDIF
?"-         7-"+@time+"- @error @serror "? 
?"-         8-"+@time+"- @error @serror "?        $rc = WriteValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\INTERNET EXPLORER\MAIN", "Start Page", "mercynet.mercyhealth.org", "REG_SZ")
?"-         9-"+@time+"- @error @serror "?        $rc = WriteValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\INTERNET SETTINGS\", "ProxyEnable", "1", "REG_DWORD")
?"-        10-"+@time+"- @error @serror "?        $rc = WriteValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\INTERNET SETTINGS\", "ProxyServer", "mhsfirewall:80", "REG_SZ")
?"-        11-"+@time+"- @error @serror "?        $rc = WriteValue("HKEY_CURRENT_USER\Control Panel\Desktop\", "Wallpaper", "c:\windows\mhslogo.bmp", "REG_SZ")
?"-        12-"+@time+"- @error @serror "?        $rc = WriteValue("HKEY_CURRENT_USER\Control Panel\General\", "BackupWallpaper", "c:\windows\mhslogo.bmp", "REG_EXPAND_SZ")
?"-        13-"+@time+"- @error @serror "?        $rc = WriteValue("HKEY_CURRENT_USER\Control Panel\General\", "Wallpaper", "c:\windows\mhslogo.bmp", "REG_EXPAND_SZ")
?"-        14-"+@time+"- @error @serror "?        $rc = WriteValue("HKEY_CURRENT_USER\Control Panel\Desktop\", "ScreenSaveActive", "1", "REG_SZ")
?"-        15-"+@time+"- @error @serror "?        $rc = WriteValue("HKEY_CURRENT_USER\Control Panel\Desktop\", "ScreenSaverIsSecure", "1", "REG_SZ")
?"-        16-"+@time+"- @error @serror "?        $rc = WriteValue("HKEY_CURRENT_USER\Control Panel\Desktop\", "ScreenSaveTimeOut", "600", "REG_SZ")
?"-        17-"+@time+"- @error @serror "?        $rc = WriteValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\Policies\Explorer\", "NoActiveDesktop", "1", "REG_DWORD")
?"-        18-"+@time+"- @error @serror "?        $rc = WriteValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\Policies\Explorer\", "NoChangingWallpaper", "1", "REG_DWORD")
?"-        19-"+@time+"- @error @serror "?        $rc = AddKey("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\Policies\System\")
?"-        20-"+@time+"- @error @serror "?       ;$rc = WriteValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\Policies\System\", "NoDispScrSavPage", "1", "REG_DWORD")
?"-        21-"+@time+"- @error @serror "?       ;$rc = WriteValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\Policies\System\", "NoDispSettings", "1", "REG_DWORD")
?"-        22-"+@time+"- @error @serror "?        $rc = WriteValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\Policies\System\", "NoDispBackgroundPage", "1", "REG_DWORD")
?"-        23-"+@time+"- @error @serror "?  ELSE
?"-        24-"+@time+"- @error @serror "?        IF Exist("%systemroot%\mhslogo.bmp") = 1
?"-        25-"+@time+"- @error @serror "?        ELSE
?"-        26-"+@time+"- @error @serror "?              RUN "copynt.bat"
?"-        27-"+@time+"- @error @serror "?        ENDIF
?"-        28-"+@time+"- @error @serror "? 
?"-        29-"+@time+"- @error @serror "?        $rc = WriteValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\INTERNET EXPLORER\MAIN", "Start Page", "mercynet.mercyhealth.org", "REG_SZ")
?"-        30-"+@time+"- @error @serror "?        $rc = WriteValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\INTERNET SETTINGS\", "ProxyEnable", "1", "REG_DWORD")
?"-        31-"+@time+"- @error @serror "?        $rc = WriteValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\INTERNET SETTINGS\", "ProxyServer", "mhsfirewall:80", "REG_SZ")
?"-        32-"+@time+"- @error @serror "?        $rc = WriteValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\Policies\Explorer\", "NoActiveDesktop", "1", "REG_DWORD")
?"-        33-"+@time+"- @error @serror "?        $rc = WriteValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\Policies\Explorer\", "NoChangingWallpaper", "1", "REG_DWORD")
?"-        34-"+@time+"- @error @serror "?        $rc = AddKey("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\Policies\System\")
?"-        35-"+@time+"- @error @serror "?       ;$rc = WriteValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\Policies\System\", "NoDispScrSavPage", "1", "REG_DWORD")
?"-        36-"+@time+"- @error @serror "?       ;$rc = WriteValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\Policies\System\", "NoDispSettingsPage", "1", "REG_DWORD")
?"-        37-"+@time+"- @error @serror "?        $rc = WriteValue("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\Policies\System\", "NoDispBackgroundPage", "1", "REG_DWORD")
?"-        38-"+@time+"- @error @serror "?        $rc = WriteValue("HKEY_CURRENT_USER\Control Panel\Desktop\", "Wallpaper", "%systemroot%\mhslogo.bmp", "REG_SZ")
?"-        39-"+@time+"- @error @serror "?        $rc = WriteValue("HKEY_CURRENT_USER\Control Panel\General\", "BackupWallpaper", "%systemroot%\mhslogo.bmp", "REG_EXPAND_SZ")
?"-        40-"+@time+"- @error @serror "?        $rc = WriteValue("HKEY_CURRENT_USER\Control Panel\General\", "Wallpaper", "%systemroot%\mhslogo.bmp", "REG_EXPAND_SZ")
?"-        41-"+@time+"- @error @serror "?        $rc = WriteValue("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Desktop\General\", "Wallpaper", "%systemroot%\mhslogo.bmp", "REG_EXPAND_SZ")
?"-        42-"+@time+"- @error @serror "?        $rc = WriteValue("HKEY_CURRENT_USER\Control Panel\Desktop\", "ScreenSaveActive", "1", "REG_SZ")
?"-        43-"+@time+"- @error @serror "?        $rc = WriteValue("HKEY_CURRENT_USER\Control Panel\Desktop\", "ScreenSaverIsSecure", "1", "REG_SZ")
?"-        44-"+@time+"- @error @serror "?        $rc = WriteValue("HKEY_CURRENT_USER\Control Panel\Desktop\", "SCRNSave.exe", "%systemroot%\logon.scr", "REG_SZ")
?"-        45-"+@time+"- @error @serror "?        $rc = WriteValue("HKEY_CURRENT_USER\Control Panel\Desktop\", "ScreenSaveTimeOut", "600", "REG_SZ")
?"-        46-"+@time+"- @error @serror "?  ENDIF ; <+++++
?"-        47-"+@time+"- @error @serror "? 
?"-        48-"+@time+"- @error @serror "?  $returncode = Delkey("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\MACROSOFT")
?"-        49-"+@time+"- @error @serror "?  IF $returncode = 0
?"-        50-"+@time+"- @error @serror "?        ? "Key Deleted..."
?"-        51-"+@time+"- @error @serror "?  ENDIF
?"-        52-"+@time+"- @error @serror "? 
?"-        53-"+@time+"- @error @serror "?  $returncode = Delkey("HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN")
?"-        54-"+@time+"- @error @serror "?  IF $returncode = 0
?"-        55-"+@time+"- @error @serror "?        ? "Key Deleted..."
?"-        56-"+@time+"- @error @serror "?  ENDIF
?"-        57-"+@time+"- @error @serror "?  RUN INOCULAN.BAT
?"-        58-"+@time+"- @error @serror "?  RUN APOST.BAT
?"-        59-"+@time+"- @error @serror "? 
?"-        60-"+@time+"- @error @serror "?  ;IF INGROUP ("WINDOWS95")
?"-        61-"+@time+"- @error @serror "?  ;     RUN WIN95.BAT
?"-        62-"+@time+"- @error @serror "?  ;ENDIF
?"-        63-"+@time+"- @error @serror "? 
?"-        64-"+@time+"- @error @serror "?  IF INGROUP ("LAN 23 USERS")
?"-        65-"+@time+"- @error @serror "?        USE Q: "\\MHS_LAN23\SMSLAN23"
?"-        66-"+@time+"- @error @serror "?  ENDIF
?"-        67-"+@time+"- @error @serror "? 
?"-        68-"+@time+"- @error @serror "?  IF INGROUP ("Net Plus Users")
?"-        69-"+@time+"- @error @serror "?        USE V: "\\MHS_LAN23\NETPLUS"
?"-        70-"+@time+"- @error @serror "?  ENDIF
?"-        71-"+@time+"- @error @serror "? 
?"-        72-"+@time+"- @error @serror "?  IF INGROUP ("EMMA Paramedics")
?"-        73-"+@time+"- @error @serror "?        USE P: "\\MHS_INVISION\EMMA"
?"-        74-"+@time+"- @error @serror "?  ENDIF
?"-        75-"+@time+"- @error @serror "? 
?"-        76-"+@time+"- @error @serror "?  IF INGROUP ("INOCULAN ANTIVIRUS")
?"-        77-"+@time+"- @error @serror "?        RUN INOCULAN.BAT
?"-        78-"+@time+"- @error @serror "?  ENDIF
?"-        79-"+@time+"- @error @serror "? 
?"-        80-"+@time+"- @error @serror "?  IF INGROUP ("Document Imaging")
?"-        81-"+@time+"- @error @serror "?        USE L: "\\IMS-NT\SMS_CARE"
?"-        82-"+@time+"- @error @serror "?  ENDIF
?"-        83-"+@time+"- @error @serror "? 
?"-        84-"+@time+"- @error @serror "?  IF INGROUP ("MEDREC II")
?"-        85-"+@time+"- @error @serror "?        USE R: "\\MHS_MEDREC\MEDREC"
?"-        86-"+@time+"- @error @serror "?  ENDIF
?"-        87-"+@time+"- @error @serror "? 
?"-        88-"+@time+"- @error @serror "?  IF INGROUP ("SOFTMED SDR")
?"-        89-"+@time+"- @error @serror "?        USE P: "\\MHS_SOFTMED_SDR\SOFTMED"
?"-        90-"+@time+"- @error @serror "?  ENDIF
?"-        91-"+@time+"- @error @serror "? 
?"-        92-"+@time+"- @error @serror "?  IF INGROUP ("MHS EIS AUTO")
?"-        93-"+@time+"- @error @serror "?        RUN EISCOPY.BAT
?"-        94-"+@time+"- @error @serror "?  ENDIF
?"-        95-"+@time+"- @error @serror "? 
?"-        96-"+@time+"- @error @serror "?  IF INGROUP ("ED Logging System")
?"-        97-"+@time+"- @error @serror "?        USE M: "\\MHS_CASEWISE\ED Log Software"
?"-        98-"+@time+"- @error @serror "?  ENDIF
?"-        99-"+@time+"- @error @serror "? 
?"-       100-"+@time+"- @error @serror "?  IF INGROUP ("PREMISE USERS")
?"-       101-"+@time+"- @error @serror "?        USE T: "\\MHS_PREMISE\NDC"
?"-       102-"+@time+"- @error @serror "?        USE U: "\\MHS_PREMISE\PVSW"
?"-       103-"+@time+"- @error @serror "?  ENDIF
?"-       104-"+@time+"- @error @serror "? 
?"-       105-"+@time+"- @error @serror "?  ;USE X: "\\MHS_STORAGE_001\PUBLIC"
?"-       106-"+@time+"- @error @serror "?  ;USE Y: "\\MHS_STORAGE_001\PUBLIC"
?"-       107-"+@time+"- @error @serror "?  ;USE Z: "\\MHS_STORAGE_001\PUBLIC"
?"-       108-"+@time+"- @error @serror "? 
?"-       109-"+@time+"- @error @serror "?  IF INGROUP ("ITT TECHROOM")
?"-       110-"+@time+"- @error @serror "?        ADDPRINTERCONNECTION ("\\MHS_STORAGE_001\ITT TECHROOM")
?"-       111-"+@time+"- @error @serror "?  ENDIF
?"-       112-"+@time+"- @error @serror "? 

?"-       end-"+@time+"- @error @serror "? 
                                            ? "-"
                                            ? "-"+LCASE(@day)+" "+@date+" "+@time+"- kixtart "+@kix+"/3.04e script ending."
                                            ? "-"
                                            IF (instr("-4.1x-","-"+substr(@kix,1,3)+"x-") <> 0)
                                              ? "-"+@cpu+" ("+@mhz+" Mhz, memory "+MemorySize()+" MB)"
                                            ENDIF
                                            ? "-"
We will wait for your feedback.
greetings.

[ 17 June 2002, 11:12: Message edited by: MCA ]
_________________________
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:  Jochen, Allen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Arend_, Mart 
Hop to:
Shout Box

Who's Online
0 registered and 2220 anonymous users online.
details
Newest Members
Viginette, ManuvdWielNL, Sir_Barrington, batdk82, StuTheCoder
17888 Registered Users
My Cookies · Mark all read Powered by UBB.threads™ Contact Us · KiXtart.org website · Top

Generated in 0.211 seconds in which 0.05 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