;
; 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