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)

---