It works!

I want to thank you for your help! Attached is my live kix script. The part up to the addprinters commands are from a friend’s script. I am not sure that his code is necessary nor do I understand all that it does but it seems to work great on Citrix as well as a normal 2000K workstation. Thank you!
code:
CLS


;Identify Operating System
Select 
Case @inwin=1 
	$kernel="WinNT" 
	$Svcpack=ReadValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion","CSDVersion") 
	$prodkey="HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ProductOptions" 
	$type=ReadValue("$prodkey","ProductType") 
	$Suite=ReadValue("$prodkey","ProductSuite") 
If Len($Suite)>0 
	$Suite=SubStr($Suite,1,InStr($Suite,"|")-1) 
	Else 
		$Suite="" 
	EndIf 
Select 
	Case @dos=5.0 
		$System="Win2k" 
	Case @dos=4.0 
		$System="WinNT" 
EndSelect 
Select 
	Case $type="LANMANNT" 
		$DCRole=ReadValue("HKEY_LOCAL_MACHINE\Security\Policy\PolSrvRo","(No Name)") 
		$flavor="$DCRole "+"$Suite "+"Domain Controller" 
	Case $type="ServerNT" 
		$flavor="$Suite "+"Member Server" 
	Case $type="WinNT" 
		$flavor="Workstation" 
EndSelect 
	Case @inwin=2 
		$kernel="Win9x" 
		$SubVer=ReadValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion","SubVersionNumber") 
	Select 
		Case @dos="4.90" 
			$System="WinME" 
			$flavor="A" 
		Case @dos="4.10" 
			$System="Win98" 
		Select 
			Case $subver=" SE " 
				$flavor="SE" 
			Case $subver=" A " 
				$flavor="A" 
	EndSelect 
		Case @dos="4.0" 
			$system="Win95" 
		Select 
			Case $subver=" C" 
				$flavor="OSR2.5" 
			Case $subver=" B" 
				$flavor="OSR2" 
			Case $subver="a" 
				$flavor="A" 
		EndSelect 
EndSelect 
EndSelect

Small
Color g+/n
Box (8,17,17,60,DOUBLE)

Color w+/n
AT ( 9,20) "Userid       : "   
AT (10,20) "Full name    : "
AT (12,20) "Privilege    : "
AT (13,20) "Workstation  : "
AT (14,20) "Kernel       : "
AT (15,20) "OS Type      : "
AT (16,20) "Logon Server : "

Color y+/n
AT ( 9,35) @userid             
AT (10,35) @fullname
AT (12,35) @priv
AT (13,35) @wksta
AT (14,35) $kernel
AT (15,35) $System
AT (16,35) @lserver
Color w/n
Sleep 3
CLS

SetConsole ("SHOW")

;Win 98
$Win9X=ReadValue("HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\ProductOptions","ProductType")
If @INWIN=2 AND ($System="WinME" OR $System="Win98" OR $System="Win95")
;DRIVE MAPPINGS FOR WIN 9X STATIONS		
	Use L:  "\\saturn\Apps"
	Use M:  "\\fire\MacShare"
	Use S:  "\\fire\Data"
	Use O:  "\\Earth\Eenterprise\OLE"
	Exit
EndIf

If InGroup ("TRIDENT\DOMAIN USERS")
	;Start Mapping Drives & Printers
	AddPrinterConnection ("\\SUN\CAN3300_MAILROOM_5E")
	AddPrinterConnection ("\\SUN\CAN3300_5E_Mailroom_FAX")
	SETTIME "*"
EndIf

If InGroup ("TRIDENT\4th Floor")
	AddPrinterConnection ("\\SUN\CANNON_4W_DESIGN")
	AddPrinterConnection ("\\SUN\HP4050TN_4E_DESIGN")
	AddPrinterConnection ("\\SUN\HP2100TN_4E_DESIGN")
EndIf 

If InGroup ("TRIDENT\5W")
	AddPrinterConnection ("\\SUN\CAN2200_5W_CUSTSRV")
	AddPrinterConnection ("\\SUN\HP4050_5W_ORDERS1")
	AddPrinterConnection ("\\SUN\HP5_5W_CUSTSRV")
	AddPrinterConnection ("\\SUN\CAN2200_5W_CUSTSRV_PCL6")
EndIf

If InGroup ("TRIDENT\5E")
	AddPrinterConnection ("\\SUN\HP8100N_5E_SALES")
	AddPrinterConnection ("\\SUN\HP8100_5E_FINANCE")
	AddPrinterConnection ("\\SUN\HP5_5E_MAILROOM")
	AddPrinterConnection ("\\SUN\HP100_CREDIT_PHONEROOM")
	AddPrinterConnection ("\\SUN\HP1220C_5E_PHONEROOM")
EndIf

If InGroup ("TRIDENT\SalesPostings")
	use V:  "\\earth\salesposting" /persistent:no
EndIf

SELECT
	CASE %WINDIR% = "P:\WINNT" GOTO WINFRAME
CASE @INWIN = 1 GOTO WINNT
CASE @INWIN <> 1 GOTO WIN95
CASE 1 GOTO THEEND
ENDSELECT

:WINNT
CLS
? "MTCLOGON WINNT SECTION"
	Use L:  "\\saturn\Apps" /persistent:no
	Use M:  "\\fire\MacShare" /persistent:no
	Use S:  "\\fire\Data" /persistent:no
	Use O:  "\\Earth\Eenterprise\OLE" /persistent:no
	? "Dynamics dictionaries are now being updated, please wait...(WINNT SECTION)"
	SHELL "%COMSPEC% /C Copy \\earth\dyreport\*.dic c:\eentrprs"
GOTO THEEND


:WINFRAME 
	CLS
	? "MTCLOGON WINFRAME SECTION"
	USE S: "\\fire\Data" /persistent:no
	use M: "\\fire\MacShare" /persistent:no
	use L: "\\saturn\Apps" /persistent:no
	use O: "\\Earth\Eenterprise\OLE" /persistent:no
	? "Dynamics dictionaries are now being updated, please wait...(WINFRAME SECTION)"
	MD "R:\DUsrData\" + @USERID ;creates user directory.
	USE N: /delete ;deletes current n: drive
	SHELL "%comspec% /c subst n: r:\DUsrData\%USERNAME%"
	SHELL "%COMSPEC% /C Copy \\earth\dyreport\*.dic N:\"
:THEEND
EXIT


[ 16 April 2002, 23:44: Message edited by: Lon M ]