;---------------------------------------------
;  NT Login Script
;
;  
;
$console = setconsole("maximize")
;---------------------------------------------
? color g+/n
? "Processing NT Login script..."
? color w/n
$CurDay = @YDAYNO
$User   = @USERID
$D = " # @time"
$User1   = " # " + @USERID
$ent = Chr(13) + chr(10)
$Server = " # " + @Lserver


? @Lserver
? "Set time . . ."
?
settime "\\hnm2kwebsrv1"
? "mlt01"
settime "\\hnm2kwebsrv1"


;---------------------------------------------
;  Scripts that Log various information
;---------------------------------------------
;
;call "script\lserver.kix"
;call "script\printer.kix"
;call "script\navupd.kix"
;call "script\mypc.kix"
;call "script\dns.kix"
;
;---------------------------------------------
;  If home directories exist, map to L
;---------------------------------------------
$Home = @HOMESHR

if len(@HOMESHR) <> 0
  ? "  Home directory . . ."
  use L: @HOMESHR
endif

;---------------------------------------------
;  Group operations -- Drive mappings
;---------------------------------------------
;---------------------------------------------
;  ESI on Schleprock
;---------------ESI---------------------------
? "esi users"
if ingroup("esi users") OR ingroup("esi admin")
	? "ESI........"
	if @inwin=1
		use h: \\shleprock\esipgm
		use g: \\shleprock\home
		use f: \\shleprock\novaf
		use i: \\shleprock\archive
		set "efdrive=f:"
		set "elocal=g:\@userid"	
		set "path=h:\;g:\@userid;%path%"
	else
		use h: \\shleprock\esipgm
		use g: \\shleprock\home
		use f: \\shleprock\novaf
		use i: \\shleprock\archive
		shell "winset efdrive=f:"
		shell "winset elocal=g:\@userid"	
		shell "winset path=h:\;g:\@userid;%path%"
	endif
endif

;---------------------------------------------
;  ESIx on Schleprock 
;---------------ESI---------------------------
?"esix"
if ingroup("esix") 
	? "  ESIx..."
	if @inwin=1
		use x: \\shleprock\esipgm
		use g: \\shleprock\home
		use f: \\shleprock\novaf
		use i: \\shleprock\archive
		set "efdrive=f:"
		set "elocal=g:\@userid"	
		set "path=x:\;g:\@userid;%path%"
	else
		use x: \\shleprock\esipgm
		use g: \\shleprock\home
		use f: \\shleprock\novaf
		use i: \\shleprock\archive
		shell "winset efdrive=f:"
		shell "winset elocal=g:\@userid"	
		shell "winset path=x:\;g:\@userid;%path%"
	endif
endif

;---------------------------------------------
;  ESI Testing on Schleprock
;---------------ESI---------------------------
?"esi test"
if ingroup("esi test") 
	? "  ESItest..."
	if @inwin=1
		use h: \\shleprock\esipgmt
		use g: \\shleprock\homet
		use f: \\shleprock\novaft
		use i: \\shleprock\archivet
		set "efdrive=f:"
		set "elocal=g:\@userid"	
		set "path=h:\;g:\@userid;%path%"
	else
		use h: \\shleprock\esipgmt
		use g: \\shleprock\homet
		use f: \\shleprock\novaft
		use i: \\shleprock\archivet
		shell "winset efdrive=f:"
		shell "winset elocal=g:\@userid"	
		shell "winset path=h:\;g:\@userid;%path%"
	endif
endif


;---------------------------------------------
;  TSI ACCESS                             (dw)
;  Drive Mapping
;---------------------------------------------
?"tsi access"
if ingroup("TSI ACCESS")
	? " TSI... "
	use z: \\tsiserver\tsimedrec
endif

;---------------------------------------------
;  MRS Registry                           (dw)
;  Cancer database
;---------------JCAHO-------------------------
?"MRS"
if ingroup("MRS Registry")
	? "  MRS..."
	use F: \\hnm2kappsrv1\mrswin
endif

;---------------------------------------------
;  MICROMEDIX
;  Drive Mapping
;---------------Nurse Admin-------------------
?"micromedix"
if ingroup("MICROMEDIX")
	use n: \\dino2\net_soft\
endif

;---------------------------------------------
;  MR Med Data on Shleprock
;  Drive Mapping
;---------------Nurse Admin-------------------
?"meddata"
if ingroup("MEDDATA")
	use G: \\shleprock\mr2win\
endif


;---------------------------------------------
;   Acorde - Optika
;---------------Document Imaging--------------
if ingroup("Document Imaging")
	? "  Document Imaging/Optika..."
	use G: \\Elroy\optika
endif


;---------------------------------------------
;  Medical Staff Services
;  Visual Cactus software and home directory
;---------------MEDICAL STAFF-----------------
if ingroup("Medical Staff") 
	? "  Visual Cactus..."
	use G: \\dino2\vc_data
endif

;---------------------------------------------
;  Medical Records                        (dw)
;  DVI Software
;---------------------------------------------
if ingroup("DVI Users")
	? "DVI..."
	use G: \\DVI\D
endif

;---------------------------------------------
;  Old Kronos Application                 (dw)
;
;---------------------------------------------
if ingroup("OLDKRONOS")
	? "Kronos..."
	use k: \\hnm2kappsrv2\kronos
endif

;---------------------------------------------
;  Network installation of software
;---------------Net_Soft----------------------
if ingroup("Net_Soft")
	? "  Net_Soft..."
	use N: \\dino2\net_soft
endif

;---------------------------------------------
;  YOGI COMMUNITY SHARE			  (dw)
;  DRIVE MAPPING
;---------------------------------------------

if ingroup("COMMUNITY")
	? "Community....."
	use Y: \\yogi\community
endif

;---------------------------------------------
;APPS ON HNM2KAPPSRV2
;---------------------------------------------
if ingroup("app02")
	?" Navigator 9.18...."
	use S: \\hnm2kappsrv2\apps
endif

;---------------------------------------------
;  Business office 
;  SSI Apex and Harp
;---------------SSI BUS OFC-------------------
if ingroup("SSI Bus Ofc")
	? "  SSI..."
endif

;---------------------------------------------
;   Acorde - Optika
;---------------Document Imaging--------------
if ingroup("Optika")
	? "  Document Imaging/Optika..."
	use O: \\Elroy\optika
endif

;---------------------------------------------
;   Body Works for HIM
;------------------BodyWorks------------------
if ingroup("Bodyworks")
	? "  Bodyworks..."
	use P: \\rudi\grumpy
endif

;---------------------------------------------
;  Setup folder
;--------------- Setup -----------------------
if ingroup("superman")
	? "  Mapping Setup Drives"
	use S: \\hnm2kwebsrv1\setup
endif

;---------------------------------------------
;  APPS on Slate
;--------------- Slate Apps ------------------
if ingroup("HDM") or ingroup("Slate_Apps")
	? "  Slate Apps"
	use T: \\slate\apps
endif

;---------------------------------------------
;  Landesk Client Installer               
;---------------------------------------------
;run "\\hnmsrvlds001\ldlogon\wscfg32.exe /noui"
;
;exit


exit 

use p: \\server\share

use p: "\\server\share"

Quote:

---

we purchased a software package that unknowingly upgraded kix on the domain controllers to 4.23

---