;Create arrays of the PC names on each desk - these must be edited if the physical layout changes!!


Dim $Desk1[3]
$Desk1[0] = "corpdr6186"
$Desk1[1] = "corpdr6240"
$Desk1[2] = "corpdr6288"
$Desk1[3] = "corpdr6289"

Dim $Desk2[8]
$Desk2[0] = "corpdr6188"
$Desk2[1] = "corpdr6200"
$Desk2[2] = "corpdr6202"
$Desk2[3] = "corpdr6204"
$Desk2[4] = "corpdr6192"
$Desk2[5] = "corpdr6190"
$Desk2[6] = "corpdr6208"
$Desk2[7] = "corpdr6206"
$Desk2[8] = "corpdr6284" ;Bloomberg PC

Dim $Desk3[7]
$Desk3[0] = "corpdr6223"
$Desk3[1] = "corpdr6221"
$Desk3[2] = "corpdr6239"
$Desk3[3] = "corpdr6237"
$Desk3[4] = "corpdr6222"
$Desk3[5] = "corpdr6220"
$Desk3[6] = "corpdr6238"
$Desk3[7] = "corpdr6236"

Dim $Desk4a[3]			;These will use DRPRT04
$Desk4a[0] = "corpdr6217"	
$Desk4a[1] = "corpdr6214"
$Desk4a[2] = "corpdr6216"
$Desk4a[3] = "corpdr6215"

Dim $Desk4b[3]			;These desks will use the A3 printer (DRPRT05) as their default
$Desk4b[0] = "corpdr6213"
$Desk4b[1] = "corpdr6211"
$Desk4b[2] = "corpdr6212"
$Desk4b[3] = "corpdr6210"

Dim $Desk5[9]
$Desk5[0] = "corpdr6263"
$Desk5[1] = "corpdr6265"
$Desk5[2] = "corpdr6267"
$Desk5[3] = "corpdr6269"
$Desk5[4] = "corpdr6175"
$Desk5[5] = "corpdr6179"
$Desk5[6] = "corpdr6173"
$Desk5[7] = "corpdr6171"
$Desk5[8] = "corpdr6197" ;Harvey's office
$Desk5[9] = "corpdr6182" ;Reuters PC

Dim $Desk6[12]
$Desk6[0] = "corpdr6271"
$Desk6[1] = "corpdr6273"
$Desk6[2] = "corpdr6275"
$Desk6[3] = "corpdr6277"
$Desk6[4] = "corpdr6279"
$Desk6[5] = "corpdr6270"
$Desk6[6] = "corpdr6282"
$Desk6[7] = "corpdr6298"; Heidi PC ???
$Desk6[8] = "corpdr6180";Reuters PC
$Desk6[9] = "corpdr6285";Bloomberg PC

$Desk6[10] = "corpdr6240" ;Rates PCs
$Desk6[11] = "corpdr6241" ;These are positioned near IT but should
$Desk6[12] = "corpdr6242";print to the Treasury printer, DRPRT07.

Select
Case IsInArray($Desk1,@WKSTA)
	$x = AddPrinterConnection("\\DRSERV01\DRPRT01")
Case IsInArray($Desk2,@WKSTA)
	$x = AddPrinterConnection("\\DRSERV01\DRPRT02")
	$x = AddPrinterConnection("\\DRSERV01\DRPRT08")
	$x = SetDefaultPrinter("\\DRSERV01\DRPRT02")
	Use lpt1: "\\DRSERV01\DRPRT02"
	Use lpt2: "\\DRSERV01\DRPRT02"
	Use lpt3: "\\DRSERV01\DRPRT08"
Case IsInArray($Desk3,@WKSTA)
	$x = AddPrinterConnection("\\DRSERV01\DRPRT03")
Case IsInArray($Desk4a,@WKSTA)
	$x = AddPrinterConnection("\\DRSERV01\DRPRT05")
	$x = AddPrinterConnection("\\DRSERV01\DRPRT04")
	$x = SetDefaultPrinter("\\DRSERV01\DRPRT04")
Case IsInArray($Desk4b,@WKSTA)
	$x = AddPrinterConnection("\\DRSERV01\DRPRT05")
	$x = AddPrinterConnection("\\DRSERV01\DRPRT04")
	$x = SetDefaultPrinter("\\DRSERV01\DRPRT05")
Case IsInArray($Desk5,@WKSTA)
	$x = AddPrinterConnection("\\DRSERV01\DRPRT06")
Case IsInArray($Desk6,@WKSTA)
	$x = AddPrinterConnection("\\DRSERV01\DRPRT07")
Case 1
	? "An error has occurred. Your PC is not listed in the configuration file."
Endselect