; **********************************************
; ***  LOGIN SCRIPT FOR USE WITH KIXTART 95  ***
; ***  THIS IS A MODIFIED VERSION OF THE ONE ***
; ***   IN THE WINDOWS 2000 SERVER BOOK BY   ***
; ***               MINASI                   ***
; **********************************************


:STAGE1						; START THE FIRST STAGE
? "STC Login script now processing..."
? "Querying your System Information..."

IF @INWIN = 1					; CHECK IF WIN9X OR WINNT (2000)
	GOTO SETVARNT
ELSE
	GOTO SETVAR95
ENDIF

:SETVAR95					; SET 9X VARIABLES
SHELL "winset.exe USERNAME=@USERID"
SHELL "WINSET.EXE ADDRESS=@ADDRESS"
SHELL "WINSET.EXE COMPUTER=@WKSTA"
SHELL "WINSET.EXE DOMAIN=@DOMAIN"
SHELL "WINSET.EXE COMMENT=@COMMENT"
SHELL "WINSET.EXE FULLNAME=@FULLNAME"
SHELL "WINSET.EXE HOMEDIR=@HOMEDIR"
SHELL "WINSET.EXE HOMESHR=@HOMESHR"
SHELL "WINSET.EXE LSERVER=@LSERVER"
SHELL "WINSET.EXE PRIV=@PRIV"
GOTO STAGE2

:SETVARNT					; SET NT VARIABLES
SET USERNAME="@USERID"
SETM ADDRESS="@ADDRESS"
SETM COMPUTER="@WKSTA"
SETM COMAIN="@DOMAIN"
SET COMMENT="@COMMENT"
SET FULLNAME="@FULLNAME"
SET HOMEDIR="@HOMEDIR"
SET HOMESHR="@HOMESHR"
SET LSERVER="@LSERVER"
SET PRIV="@PRIV"

:STAGE2
? "Querying your group memberships...."
SHELL "\\STC-SBSERVER\NETLOGON\KIXGRP.EXE /S"
;? "Synchronizing your system's clock"
;SETTIME \\STC-SBSERVER
;IF @ERROR = 0
;	? "System clock synchronized"
;ELSE
;	MESSAGEBOX ("Cannot synchronize the system clock.
;	Please inform your administrator.","STC Login Script", 0)
;ENDIF

?
? "Now mapping network drives..."
? "Your home share is " @userid
; DELETE ANY PREVIOUS DRIVE MAPPINGS AND CHECK FOR ERRORS
USE * /DELETE /PERSISTENT
IF @error = 0
	? "Previous mappings deleted..."
ELSE
	MESSAGEBOX ("Cannot delete previous drive mappings.
	Please inform your administrator.","STC Login Script.",0)
ENDIF

; MAP DRIVE LETTER BASED ON GROUPS
; MAP DRIVE FOR ADMINS
;IF INGROUP ("Domain Admins") = 1
;        USE T: "\\STC-SERVER2\C$"
;        USE U: "\\STC-SERVER2\D$"
;        ? "Server drives mapped for Admins"
;ENDIF

; MAP DRIVES FOR EVERYONE ELSE
IF INGROUP ("Domain Users") = 1
        USE F: "\\STC-SERVER2\APPS"
        USE G: "\\STC-SERVER2\DOCS"
        USE H: "\\STC-SBSERVER\USERS\@USERID"
        USE S: "\\STC-SERVER2\SUPPORT"
        ? "Drives mapped for users..."
ENDIF

;Map Other Printers and such
IF @USERID = "sgarland"
;	USE LPT1: "\\STC-SBSERVER\HP8000"
;	USE LPT2: "\\STC-SBSERVER\HP5"
ENDIF

IF @TSSESSION = 1
	USE T: "\\STC-SBSERVER\TSUSERS\@USERID"
ENDIF

;Map Connie's printer
;IF INGROUP ("write up support") = 1
;	USE LPT1: "\\DEE\hp2300"
;ENDIF
?
?
; RUN SOFTWARE SETUP FOR SBS PROGRAM
;shell "\\STC-SBSERVER\Clients\Setup\SBSCLNT.exe /s STC-SBSERVER"

EXIT