; KIXTART.SCR
;
; Crawford THG default logon script
;
; Changed to delete network connections for amfproject 22/09/00
;
CLS

Small
Color g+/n
at (2,8) "Hello, "
@userid

Color r+/n
if @userid = ""
at (6,10) "unable to logon to " + @LSERVER + " - press any key to retry"
Get$
endif
at (6,0) "Creating Server connections "

Use "*" /delete /persistent ; Delete all current connections permenantly
; Except for netlogon

Select

; Case InGroup("LCSUSER")
; use X: "\\MIL2PDC1\XDRIVE"
; USE T: "\\MILTLCS1\LCSDATA"
; USE S: "\\MILTLCS1\SHARED"

Case InGroup("MIMSUSER")
USE X: "\\MIL2BDC1\RECORDS"
USE N: "\\MIL2BDC1\MIMS"
USE J: "\\MIL2BDC1\LETTERS"

Case InGroup("Healthcare Users")
USE X: "\\MIL2BDC1\RECORDS"
USE S: "\\MIL2SQL1\HEALTH"
USE P: "\\MIL2SQL1\PRINSTAL"

EndSelect

USE L: "\\MIL2SQL1\DISKS"
USE V: "\\MIL2SQL1\COVER"
USE Y: "\\MIL2BDC1\@USERID$"
USE W: "\\MIL2BDC1\ClaimsAdmin"
USE Z: "\\MIL2PDC1\CDROM"