;
;  KIXTART.SCR
;
;  Bioimage Kixtart Logon script ver. 1.7
;

CLS
;SetTime "\\Vale"

;AT (1,1)@userid              ; ...and some macro's
;AT (2,1)@fullname
;AT (3,1)@wksta
;AT (4,1)@lserver
;AT (5,1)@INWIN 

; Mapping Std. drive to everybody

Use "*" /Delete 					; Delete all mappings

;Bohr
Use L: "\\Bohr\Programs$"				; Maps Programs Drive
Use M: "\\bohr\Compound$" 				; Maps Incell Data
Use N: "\\bohr\AssayDev$" 				; Maps Incell Data
Use O: "\\Bohr\Swapzone"				; Maps the SwapZone
Use P: "\\Bohr\@userID$" 				; Maps the Personal drive
Use Q: "\\Bohr\Projects$"				; Maps Project drive
Use R: "\\Bohr\Functions$"				; Maps Functions drive
Use T: "\\Bohr\Templates$"				; Maps Templates drive

;Armenius
Use U: "\\Armenius\Compound_data"			; Maps Compound_data på Armenius
Use Y: "\\Armenius\Assay_development_data"		; Maps Assay data drive
Use Z: "\\Armenius\Docstore$"				; Maps the Docstore drive
Use I: "\\Armenius\BioImage Procedure Library (BIPL)" 	; Maps the New SOP-File drive

If @userid ='Jadc'
	Use V: "\\Bohr\software$" 			; Maps Software drive for specific users
EndIf

If @userid ='LaKN'
	Use V: "\\Bohr\software$" 			; Maps Software drive for specific users
EndIf

If @INWIN = 2
	;Use W: "\\Thor\win98$"
	Use Y: "\\Armenius\assay_Data"
	Use J: "\\Armenius\comdata"
EndIf

If @wksta = LSM_MICRO
	Goto End
EndIf

If @wksta = INcell_PC
	Goto End
EndIf

If @wksta = ALPHA5
	Goto End
EndIf

if @wksta = zymark
	Goto End
Endif

; Antivirus

If @WKSTA = odin
	Goto end
Else
	Goto Thor
EndIf

:Thor
If @WKSTA = Thor
	Goto end
Else
	Goto Bohr
EndIf

:Bohr
If @WKSTA = Bohr
	Goto end
Else
	Goto Armenius
EndIf

:Armenius
If @WKSTA = Armenius
	Goto end
Else
	Goto end
EndIf
:end
Cookie1

USE "L:" "\\Bohr\Programs$$" /PERSISTENT

Break on

If Exist("L:\")
	?"Yep"
Else
	?"Nope"
EndIf

If Not Exist('L:\')
  Use 'L:' '\\Bohr\Programs$$' /persistent
EndIf