;  TEST.KIX

If NOT @LOGONMODE
	     Break On
EndIf

$SO=SETOPTION("Explicit", "ON")
$SO=SETOPTION("NoMacrosInStrings", "ON")
$SO=SETOPTION("NoVarsInStrings", "ON")
$SO=SETOPTION("WrapAtEOL", "ON")
	
;Set Variables
dim $os,$public,$service,$assigned,$Pserver,$department
CLS
$OS=@dos							;OS Versio
$public="\\THC-GA\Public"				;Public Share
$service=@comment					;Department assigned from comment field
$Pserver="\\THC-GA\"					;Server for User Accounts
$department=$Pserver + $service			;Departmental Share
;$personal=$Pserver + @userid+"$"			;Personal Share

;SetTime "\\thc-ga\"					;Unless you have NT / 95 not needed
;******************************************************************
;***	BEGIN Instructions by Department 
;******************************************************************

Use * /DELETE /Persistent
Use N: $public						;MAP Public Share
Use O: $department					;MAP Department Share


Select
	Case $service = "~AHPs"
		Use T: "\\Cs-cb\Transcription"

	Case $service = "~Clinical"
		Use T: "\\Cs-cb\Transcription"

	Case $service = "~Diagnostics"
		Use T: "\\Cs-cb\Transcription" 

	Case $service ="~IT"
		Use S: "\\THC-GA\Software"

	Case $service = "~MedicalRecords"
		Use U: "\\cbs-cb\Transcription"

	Case $service = "~Physicians"
		Use T: "\\Cbs-cb\Transcription"
EndSelect

:REGISTERED-OWNER
$ReturnCode = WriteValue("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion","RegisteredOrganization","Napa Valley Cardiovascular Associates, P.C.","REG_SZ") 
$ReturnCode = WriteValue("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion","RegisteredOwner","The Health Center","REG_SZ") 


;******************************************************************
;***	BEGIN Instructions by Group 
;******************************************************************
:SOFTWARE

If InGroup("APP-PEACHTREE")
	Use Q: "\\APP01\PEACHTREE"
EndIf

If InGroup("APP-SOLOMAN")
	Use S: "\\SUPERIOR-FS\SOLOMAN"
EndIf

If InGroup("APP-APD")
	Use R: "\\DENARI\EZTIMEG"
	Use T: "\\DENARI\TIMEOUT"
EndIf

If InGroup("APP_HOLSTER")
	Use U: "\\THC-GA\HOLSTER DAT"
EndIf

; **Adding icon to group below's Desktop**
If InGroup("APP-Allscripts")
	If Not Exist (%UserProfile% + "\Desktop\Allscripts.rdp")
		Copy "\\Sec01\deploy\Shortcuts\Allscripts.rdp" %UserProfile% + "\Desktop"
		? "Return code was :" + @Error + " -Descriptive text " + @serror ;remove after testing
	EndIf
EndIf

;******************************************************************
;***	END Instructions by Group
;******************************************************************

;******************************************************************
;***	BEGIN Miscellaneous Instructions 
;******************************************************************

; **Clears the C:\TEMP Directory** [BEGIN]

Go C:
Del "C:\TEMP\*.PDF"
Del "C:\TEMP\*.DWG"
Del "C:\TEMP\*.DOC"
Del "C:\TEMP\*.BMP"
Del "C:\TEMP\*.JPG"
Del "C:\TEMP\*.TXT"
Del "C:\TEMP\*.XLS"
Del "C:\TEMP\*.PPT"
Del "C:\TEMP\*.MDB"
Del "C:\TEMP\*.ZIP"
Del "C:\TEMP\*.EXE"


;******************************************************************
;***	END Miscellaneous Instructions 
;******************************************************************




Exit