;***********************************************************************
;*
;* LOGON.SCR
;*
;* Logon-script för domänen VHSNTD01
;* Scriptet anropas av \\Vhsfs01\Netlogon\Kix32.exe vid påloggning
;*
;***********************************************************************
;* Ändring 2000-01-03/SE: Anpassning för Windows NT
;* Ändring 2000-02-02/SE: Genomgång i samband med systemdokumentation
;***********************************************************************

CLS
$winnt = 1
$win95 = 2
$x = SetConsole("ALWAYSONTOP")
IF @INWIN=$win95
  $wset = "C:\COMMAND.COM /E:2048 /C J:\NETADM\WSET.BAT "
  $run = "C:\COMMAND.COM /E:2048 /C "
ELSE
  $run = "C:\WINNT\SYSTEM32\CMD.EXE /C "
ENDIF

;***********************************************************************
;* Hälsning
;***********************************************************************
COLOR w+/n
? "V„lkommen, " + @FULLNAME + "."
?
? "Startar NT-n„tverket, v„nta..."

; *** Hämta korrekt tid från huvudservern ***
SETTIME "\\VHSFS01"

;***********************************************************************
;* Hemdisk
;***********************************************************************
COLOR y+/n
IF @INWIN=$win95
  USE H: /D
  USE H: @HOMESHR
ENDIF

;***********************************************************************
;* Gemensamma diskar
;***********************************************************************
IF INGROUP("VHS-Personal")
  USE F: /D
  USE F: "\\VHSFS01\F-VHS"
ENDIF
IF INGROUP("VHS-Antagning")
  USE G: /D
  USE G: "\\VHSFS01\G-ANT"
ENDIF
IF INGROUP("VHS-AuAdb")
  USE G: /D
  USE G: "\\VHSFS01\G-AUADB"
  USE K: /D
  USE K: "\\VHSFS01\G-ANT"
ENDIF
IF INGROUP("VHS-Ekonomi")
  USE E: /D
  USE E: "\\VHSAG01\AGRESSO"
  USE G: /D
  USE G: "\\VHSFS01\G-EKON"
  USE K: /D
  USE K: "\\VHSFS01\G-UPPH"
ENDIF
IF INGROUP("VHS-Upphandling")
  USE G: /D
  USE G: "\\VHSFS01\G-UPPH"
ENDIF
IF INGROUP("VHS-Upph-WebMaster")
  USE W: /D
;  USE W: "\\VHSIS05\UPPHANDL"
  USE W: "\\VHSIS01\UPPHANDL"
ENDIF

;***********************************************************************
;* Programdisk
;***********************************************************************
USE J: /D
USE J: "\\VHSFS01\APPL"

;***********************************************************************
;* Övriga diskar
;***********************************************************************
IF INGROUP("Domain Admins")
  USE I: /D
  USE I: "\\VHSFS01\DATA"
ENDIF

; *** Ändring 2000-01-26/SN: UB-applikationen används inte längre ***
;IF INGROUP("Appl-UB")
;  USE I: /D
;  USE I: "\\VHSFS01\APPL"
;  ; *** Koppla LPT2 till en av Upphandlingsavdelningens laserskrivare ***
;  USE LPT2: /D
;  USE LPT2: "\\VHSPS01\HP3D-UPP-1"
;ENDIF

?
COLOR w+/n

;***********************************************************************
;* Sätt DOS-variabler
;***********************************************************************
IF @INWIN=$win95
  SHELL $wset + "CLIPPER F099"
  SHELL $wset + "EUDORA  H:\APPS\EUDORA"
  SHELL $wset + "QWS3270 H:\APPS\QWS3270"
  SHELL $wset + "USERID @USERID"
ELSE
  SET "CLIPPER=F099"
  SET "EUDORA=H:\APPS\EUDORA"
  SET "QWS3270=H:\APPS\QWS3270"
ENDIF

;***********************************************************************
;* Eventuell avslutning av logonscriptet (specialhantering)
;***********************************************************************
; *** Avsluta logonscript om Windows NT och scripthantering ej önskvärd ***
IF (@INWIN=$winnt) AND (%NTLOGIN%<>"YES")
  GOTO Slut
ENDIF

; *** Avsluta logonscript om inringning via modem ***
IF %RASVHS%<>""
  GOTO Slut
ENDIF

;***********************************************************************
;* Initiera sökvägen (PATH)
;***********************************************************************
IF @INWIN=$win95
  $path = "%PATH%"
ELSE
  $path = ""
ENDIF

; *** Test på om Windows 95 (och ej 3.11) är installerat görs nedan ***
IF %WINBOOTDIR%="C:\WINDOWS"
  SHELL $wset + "WINDISK C:"
  IF INSTR($path, "J:\WINDOWS.95")=0
    $path = $path + CHR(59) + "J:\WINDOWS.95"
  ENDIF
ELSE
  SHELL $wset + "WINDISK H:"
ENDIF

;***********************************************************************
;* Övriga DOS-kommandon
;***********************************************************************
IF @INWIN=$win95
  SHELL $run + "LABEL C: C"
ENDIF

;***********************************************************************
;* Grundkonfigurera systemet om första gången användaren loggar på
;***********************************************************************
SHELL $run + "J:\NETADM\ADDUSR.BAT " + "C:\WINDOWS\PROFILES\@USERID"

;***********************************************************************
;*
;* Meny- och grupphantering för Windows
;*
;***********************************************************************
  IF @INWIN=$win95
    ; *** Startmenyn läggs i C:\WINDOWS\Start-menyn (Windows 95/98) ***
    $startMeny =     "C:\WINDOWS\Start-menyn"
  ELSE
    ; *** Startmenyn läggs i All Users (Windows NT) ***
    $startMeny =     "C:\Winnt\Profiles\Alluse~1\Start-~1"
  ENDIF
  ; *** Skapa temporära mappar för startmenyn ***
  $vhsMeny =       "C:\VHSMENY"
  $vhsAllmMeny =   $vhsMeny + "\VHS Allmänt"
  $vhsAntMeny =    $vhsMeny + "\VHS Antagning"
  $vhsEkonMeny =   $vhsMeny + "\VHS Ekonomi"
  $vhsUpphMeny =   $vhsMeny + "\VHS Upphandling"
  $vhsSysopsMeny = $vhsMeny + "\VHS SysOps"

  $x = REDIRECTOUTPUT("NUL")
  SHELL "DELTREE /Y " + $vhsMeny
  $x = REDIRECTOUTPUT("")
  MD $vhsMeny

  MD $vhsAllmMeny
  MD $vhsAntMeny
  MD $vhsEkonMeny
  MD $vhsUpphMeny
  MD $vhsSysopsMeny

;***********************************************************************
;* Kopiera genvägar till den användaranpassade startmenyn
;***********************************************************************
  IF INGROUP("VHS-Personal")
    IF INGROUP("Appl-Win98")
      IF @INWIN=$win95
        SHELL $run + 'COPY J:\NETADM\LNK\Password.LNK "' + $vhsAllmMeny + '\Byt lösenord i nätverket (nedersta knappen!).lnk" > NUL'
      ENDIF
    ELSE
      IF @INWIN=$win95
        SHELL $run + 'COPY J:\NETADM\LNK\EUDORA.LNK "'   + $vhsAllmMeny + '" > NUL'
        SHELL $run + 'COPY J:\NETADM\LNK\Password.LNK "' + $vhsAllmMeny + '\Byt inloggnings-password (nedersta knappen!).lnk" > NUL'
      ENDIF
    ENDIF
    IF @INWIN=$win95
      SHELL $run + 'COPY J:\NETADM\LNK\IEXPLORE.LNK "' + $vhsAllmMeny + '\Internet Explorer.lnk" > NUL'
      SHELL $run + 'COPY J:\NETADM\LNK\TELNET.LNK "'   + $vhsAllmMeny + '" > NUL'
      SHELL $run + 'COPY J:\NETADM\LNK\AVTK.LNK "'     + $vhsAllmMeny + '\Anti-Virus Toolkit.lnk" > NUL'
      SHELL $run + 'COPY J:\NETADM\LNK\Adresser.LNK "' + $vhsAllmMeny + '\Datorpostadresser.lnk" > NUL'
    ELSE
      SHELL $run + 'COPY J:\NETADM\LNK\TELNET.LNK "'   + $vhsAllmMeny + '" > NUL'
      SHELL $run + 'COPY J:\NETADM\LNK\AVTKNT.LNK "'   + $vhsAllmMeny + '\VirusScan.lnk" > NUL'
      SHELL $run + 'COPY J:\NETADM\LNK\Adresser.LNK "' + $vhsAllmMeny + '\Datorpostadresser.lnk" > NUL'
    ENDIF

    SHELL $run + "J:\NETADM\ADDPRG ADRESSER"
    SHELL $run + "J:\NETADM\ADDPRG EWAN"
  ENDIF

  IF INGROUP("VHS-Antagning")
    SHELL $run + 'COPY J:\NETADM\LNK\TN3270.LNK "'   + $vhsAntMeny + '\Telnet 3270 (DAFA).lnk" > NUL'
  ENDIF

  IF INGROUP("VHS-Ekonomi")
    SHELL $run + 'COPY J:\NETADM\LNK\TN3270.LNK "'   + $vhsEkonMeny + '\Telnet 3270 (DAFA).lnk" > NUL'
  ENDIF

  IF INGROUP("VHS-Upphandling")
    SHELL $run + 'COPY J:\NETADM\LNK\Tiddb.lnk "'    + $vhsUpphMeny + '\Tiddatabas.lnk" > NUL'
    SHELL $run + 'COPY J:\NETADM\LNK\TN3270.LNK "'   + $vhsUpphMeny + '\Telnet 3270 (DAFA).lnk" > NUL'
  ENDIF

  IF INGROUP("VHS-SysOps")
    IF @INWIN=$win95
      SHELL $run + 'COPY J:\SYSOPS\LNK\AUTOUPD.LNK "'   + $vhsSysopsMeny + '\Auto-uppdateringar.lnk" > NUL'
      SHELL $run + 'COPY J:\SYSOPS\LNK\Eviewer.LNK "'   + $vhsSysopsMeny + '\Event Viewer.lnk" > NUL'
      SHELL $run + 'COPY J:\SYSOPS\LNK\Srvthelp.LNK "'  + $vhsSysopsMeny + '\Help for Windows NT Server Tools.lnk" > NUL'
      SHELL $run + 'COPY J:\SYSOPS\LNK\LOGON.LNK "'     + $vhsSysopsMeny + '\Logon-script.lnk" > NUL'
      SHELL $run + 'COPY J:\SYSOPS\LNK\POLEDIT.LNK "'   + $vhsSysopsMeny + '\System Policy Editor.lnk" > NUL'
      SHELL $run + 'COPY J:\SYSOPS\LNK\REGEDIT.LNK "'   + $vhsSysopsMeny + '\Registry Editor.lnk" > NUL'
      SHELL $run + 'COPY J:\SYSOPS\LNK\Srvman.LNK "'    + $vhsSysopsMeny + '\Server Manager.lnk" > NUL'
      SHELL $run + 'COPY J:\SYSOPS\LNK\TELNET.LNK "'    + $vhsSysopsMeny + '\Telnet.lnk" > NUL'
      SHELL $run + 'COPY J:\SYSOPS\LNK\Usrman.LNK "'    + $vhsSysopsMeny + '\User Manager for Domains.lnk" > NUL'
    ELSE
      SHELL $run + 'COPY J:\SYSOPS\LNK\AUTOUPNT.LNK "'  + $vhsSysopsMeny + '\Auto-uppdateringar.lnk" > NUL'
      SHELL $run + 'COPY J:\SYSOPS\LNK\LOGONNT.LNK "'   + $vhsSysopsMeny + '\Logon-script.lnk" > NUL'
    ENDIF
    SHELL $run + 'COPY J:\SYSOPS\LNK\ADMDOK.LNK "'    + $vhsSysopsMeny + '\Admdok.doc.lnk" > NUL'
    SHELL $run + 'COPY J:\SYSOPS\LNK\DOK.LNK "'       + $vhsSysopsMeny + '\Dokumentation.lnk" > NUL'
    SHELL $run + 'COPY J:\SYSOPS\LNK\NETADM.LNK "'    + $vhsSysopsMeny + '\NETADM-filer.lnk" > NUL'
    SHELL $run + 'COPY J:\SYSOPS\LNK\SYSLNK.LNK "'    + $vhsSysopsMeny + '\LNK-filer (SysOps).lnk" > NUL'
    SHELL $run + 'COPY J:\SYSOPS\LNK\USERLNK.LNK "'   + $vhsSysopsMeny + '\LNK-filer (Personal).lnk" > NUL'
  ENDIF
 
  IF INGROUP("VHS-AdressAdm")
    IF @INWIN=$win95
      SHELL $run + 'COPY J:\NETADM\LNK\Adredit.LNK "'   + $vhsAllmMeny + '\Datorpostadresser (ändra).lnk" > NUL'
    ELSE
      SHELL $run + 'COPY J:\NETADM\LNK\Adrednt.LNK "'   + $vhsAllmMeny + '\Datorpostadresser (ändra).lnk" > NUL'
    ENDIF
  ENDIF

  IF INGROUP("Appl-Agresso")
    SHELL $run + 'COPY J:\NETADM\LNK\Agresso.lnk "'   + $vhsEkonMeny + '\Agresso (produktion).lnk" > NUL'
    SHELL $run + "J:\NETADM\ADDPRG AGRESSO"
  ENDIF

  IF INGROUP("Appl-Agrtest")
    SHELL $run + 'COPY J:\NETADM\LNK\Agrtest.lnk "'   + $vhsEkonMeny + '\Agresso (test).lnk" > NUL'
    SHELL $run + "J:\NETADM\ADDPRG AGRESSO"
  ENDIF

  IF INGROUP("Appl-Diabas")
    SHELL $run + 'COPY J:\NETADM\LNK\Dia_base.lnk "'  + $vhsAllmMeny + '\Diabas Ärende.lnk" > NUL'
    SHELL $run + 'COPY J:\NETADM\LNK\Dia_reg.lnk "'   + $vhsAllmMeny + '\Diabas Katalog.lnk" > NUL'
    SHELL $run + 'COPY J:\NETADM\LNK\Dia_sys.lnk "'   + $vhsAllmMeny + '\Diabas Användare.lnk" > NUL'
    SHELL $run + 'COPY J:\NETADM\LNK\Dia_tbl.lnk "'   + $vhsAllmMeny + '\Diabas Databas.lnk" > NUL'
  ENDIF

;  IF INGROUP("Appl-FamTest")
;    SHELL "REGEDIT /S J:\NETADM\REG\HKLMRunOnceFamClientOn.reg"
;  ENDIF

  IF INGROUP("Appl-Fam")
    SHELL $run + 'COPY J:\NETADM\LNK\Ddhsok32.lnk "'  + $vhsAntMeny + '\DDH Sök 32.lnk" > NUL'
    SHELL $run + 'COPY J:\NETADM\LNK\Ddh32tst.lnk "'  + $vhsAntMeny + '\DDH Test 32.lnk" > NUL'
    ; *** Lägg till Informix-biblioteket i sökvägen ***
    IF INSTR($path, "J:\INFXNET\BIN;J:\RUMBALANV5.2\SYSTEM")=0
      $path = $path + CHR(59) + "J:\INFXNET\BIN;J:\RUMBALANV5.2\SYSTEM"
    ENDIF
    ; *** Aktivera autostart av FAM/Client ***
    IF @INWIN=$win95
      SHELL "REGEDIT /S J:\NETADM\REG\HKLMRunOnceFamClientOn.reg"
    ENDIF
  ELSE
    ; *** Avaktivera autostart av FAM/Client ***
    IF @INWIN=$win95
      SHELL "REGEDIT /S J:\NETADM\REG\HKLMRunOnceFamClientOff.reg"
    ENDIF
  ENDIF

  IF INGROUP("Appl-FileMaker")
    SHELL $run + 'COPY J:\NETADM\LNK\Fmpro.lnk "'     + $vhsUpphMeny + '\FileMaker Pro.lnk" > NUL'
    SHELL $run + "J:\NETADM\ADDPRG FMPRO"
  ENDIF

  IF INGROUP("Appl-H91")
    SHELL $run + 'COPY J:\NETADM\LNK\H97.lnk "'       + $vhsAntMeny + '\H97.lnk" > NUL'
  ENDIF

  IF INGROUP("Appl-Kontoplan")
    SHELL $run + 'COPY J:\NETADM\LNK\Kontop97.url "'  + $vhsUpphMeny + '\Kontoplan 97.url" > NUL'
  ENDIF

  IF INGROUP("Appl-Loggen")
    SHELL $run + 'COPY J:\NETADM\LNK\Diarium.lnk "'   + $vhsAllmMeny + '\Diarium (Loggen).lnk" > NUL'
  ENDIF

  IF INGROUP("Appl-MailLog")
    SHELL $run + 'COPY J:\NETADM\LNK\Mailview.lnk "'  + $vhsEkonMeny + '\Loggning av e-post.lnk" > NUL'
  ENDIF

  IF INGROUP("Appl-PageMaker5")
    SHELL $run + 'COPY J:\NETADM\LNK\Pm5.lnk "'       + $vhsAllmMeny + '\PageMaker 5.0.lnk" > NUL'
    SHELL $run + "J:\NETADM\ADDPRG PM5"
  ENDIF

  IF INGROUP("Appl-UpphTidEkon")
    SHELL $run + 'COPY J:\NETADM\LNK\TiddbEk.lnk "'  + $vhsEkonMeny + '\Upphandlingens Tiddatabas.lnk" > NUL'
  ENDIF

;***********************************************************************
;* Skapa uppdaterade menyer på användarens dator
;***********************************************************************
  IF @INWIN=$winnt
    SHELL $run + "J:\NETADM\VHSMENNT.BAT " + $vhsMeny + " " + $startMeny
  ELSE
    SHELL $run + "J:\NETADM\VHSMEN98.BAT " + $vhsMeny + " " + $startMeny
  ENDIF

;***********************************************************************
;* Kör automatiska uppdateringar av datorn/nätverket
;***********************************************************************
;!!!
  IF @INWIN=$win95
    SHELL $run + "J:\NETADM\AUTOUPD.BAT"
  ENDIF

;***********************************************************************
;* Sätt slutlig PATH efter uppdateringar under påloggningen
;***********************************************************************
  IF @INWIN=$win95
    SHELL "J:\NETADM\WINSET PATH=" + $path
  ELSE
    SET "PATH=" + $path
  ENDIF

:Slut