@echo off
REM DRIVE MAPPING
	@echo off
	Echo .
	Echo Login Script Starting...
	Echo .
	net time \\dc001 /set /yes
	net use s: /delete
	net use p: /delete
	net use x: /delete
	net use l: /delete
REM	Cleanup
	net use p: \\FS001\programs
	net use s: \\FS001\shared
	net use l: \\ap002\application
	net use x: \\fs001\ENG_DATA
	net use u: /home


REM The next line calls softbatline.bat which scans registry for registered programs & saves
REM the info to %computername%.sts (software tracking pickup)
REM Softbatline.bat must be in a writable directory because it creates temporary file
	call l:\heohsoft\softbatline.bat > l:\HEOHSOFT\%COMPUTERNAME%.stp


REM this removed 011403	copy s:\software\fonts\ht*.* c:\winnt\fonts /y
	copy L:\HEOHSOFT\font\system.ttf c:\winnt\fonts /y

REM	call kix32.exe disclaim.kix
	Kix32 "\\dc001\netlogon\disclaim.kix"
        kix32 "\\dc001\netlogon\IE\W2W.scr"
	
If "%OS%" == "Windows_NT" goto EOF

:CHECKRAS95
	@echo off
	echo .
	Echo Checking for Remote Connection
	echo .
	z:
	rem following line should be "call z:\rtv95_98.bat ..etc"
	call z:\rtv95_98.bat "remote connection" HKLM\SYSTEM\CurrentControlSet\services\remoteaccess RCONNECTION
	IF NOT "%RCONNECTION%" == "KEY_NOT_FOUND" GOTO EOF
	echo RAS Connection not detected....
	goto runscript
:ENDCHECKRAS95

REM  Tasks to run if not connected via RAS and win9x pc
:RUNSCRIPT
	echo .
	echo .
	echo .
goto EOF
:ENDSCRIPT

:EOF
	REM This is needed to let the login script finish
	c:

If Not @LogonMode
  Break On
Else
  Break Off
EndIf
Dim $SO
$SO=SetOption('Explicit','On')
$SO=SetOption('NoVarsInStrings','On')
$SO=SetOption('NoMacrosInStrings','On')
$SO=SetOption('WrapAtEOL','On')

;Active Directory manages the time NET TIME is old NT4 days
	;net time \\dc001 /set /yes

;You're not even checking if these drives are mapped and not sure why
;Admins map/unmap each logon but that's okay.  
;One of the great things of KiXtart is mapping a drive based on Group Membership
;Example:  If InGroup(@Domain+'\Finance') USE P: "\\FS001\Finance" EndIf
	USE S: /DELETE /PERSISTENT
	USE P: /DELETE /PERSISTENT
	USE X: /DELETE /PERSISTENT
	USE L: /DELETE /PERSISTENT
;A semi-colon is like a REM from batch	Cleanup
    USE P: '\\FS001\programs'
	USE S: '\\FS001\shared'
	USE L: '\\ap002\application'
	USE X: '\\FS001\ENG_DATA'
	USE W: @HomeDir

;REM The next line calls softbatline.bat which scans registry for registered programs & saves
;REM the info to %computername%.sts (software tracking pickup)
;REM Softbatline.bat must be in a writable directory because it creates temporary file

;What are the contents of softbatline.bat ?  I'm sure we can rewrite it into KiXtart
;	call l:\heohsoft\softbatline.bat > l:\HEOHSOFT\%COMPUTERNAME%.stp


;REM this removed 011403	copy s:\software\fonts\ht*.* c:\winnt\fonts /y

;This line should fail for normal users.  Normal users can not install fonts and the path
;would be wrong for many computers.
;	copy L:\HEOHSOFT\font\system.ttf c:\winnt\fonts /y
;Untested but something like this but again you wouldn't want to do this every
;login either as it's a waste of time and should produce an error of sorts.
COPY '\\HEOHSOFT\font\system.ttf' '%WINDIR%\FONTS'

;Running all from WKIX32.EXE we don't need this method just place all the code
;into this script.  No need to use different extensions either.  I would use .kix
;REM	call kix32.exe disclaim.kix
;	Kix32 "\\dc001\netlogon\disclaim.kix"
;        kix32 "\\dc001\netlogon\IE\W2W.scr"

CALL @LDrive+'disclaim.kix'
CALL @LDrive+'IE\W2W.scr'
	
;No need for this stuff as you don't have Windows 9x anymore.
;Would need to think more about what you're wanting to do if someone
;is remoted in via RAS or VPN 

;If "%OS%" == "Windows_NT" goto EOF

;:CHECKRAS95
;	@echo off
;	echo .
;	Echo Checking for Remote Connection
;	echo .
;	z:
;	rem following line should be "call z:\rtv95_98.bat ..etc"
;	call z:\rtv95_98.bat "remote connection" HKLM\SYSTEM\CurrentControlSet\services\remoteaccess RCONNECTION
;	IF NOT "%RCONNECTION%" == "KEY_NOT_FOUND" GOTO EOF
;	echo RAS Connection not detected....
;	goto runscript
;:ENDCHECKRAS95
;
;REM  Tasks to run if not connected via RAS and win9x pc
;:RUNSCRIPT
;	echo .
;	echo .
;	echo .
;goto EOF
;:ENDSCRIPT
;
;:EOF
;	REM This is needed to let the login script finish
;	c:

@echo off
REGEDIT /E  %COMPUTERNAME%A.txt "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\Uninstall"
Find "DisplayName" < %COMPUTERNAME%A.txt | Find /V "QuietDisplayName" > %COMPUTERNAME%B.txt
FOR /F "tokens=1,2 delims==" %%A IN (%COMPUTERNAME%B.txt) do @echo %%~B
DEL %COMPUTERNAME%A.txt
DEL %COMPUTERNAME%B.txt

[PROGSHARE]
CLASS=DISK
TARGET=P:
PATH=\\FS001\programs
GROUPS=
OUS=
# repeat this for each mapping, defining groups and/or OUs
# to control who gets the mapping

# This resource record reports the mapping, but actually doesn't map 
# anything, since this happens automatically in AD domains
[HOMESHARE]
CLASS=DISK
TARGET=H:
PATH=HOME


# display a disclaimer, Message Of The Day, or some important notice
# (up to 10 allowed)
# domain admins don't get this message :)
[DISCLAIM]
CLASS=MESSAGE
PATH=disclaim.txt
GROUPS=!Domain Admins

# Call a script to display the disclaimer AND ask for acknowlegement
# Only domain admins - discourages logging in with that much power ;)
[ADMIN_DISCLAIM]
CLASS=SCRIPT
PATH=disclaim.kix
METHOD=call
GROUPS=Domain Admins