Then these are the UDF's in use.
(Revised for 4.0, tested on NT4 & XP.)
code:
Function SetupPrinters
; Uses Y:\Stations.ini and Y:\@Wksta\Station.ini to setup printers
; NT/W2K/XP only
; Y:\Stations.ini (Printers) has a default printer for each station without a local one
; Y:\Stations.ini (Additional Printers) has global additional printers
; Y:\@Wksta\Station.ini (Additional Printers) has additional printers just
for that station.
$P=1
? "Printers..." ?
SHELL "P:\Con2Prt /f" ;clear any existing in profile
; Global additional printers
Do
$Printer = ReadProfileString("Y:\Stations.ini","Additional Printers","Printer" + $P)
if $Printer <> ""
PrintLog(" Connecting: " + "P:\Con2Prt /c " + $Printer,1)
SHELL "P:\Con2Prt /c " + $Printer
else
$P = 5 ;no more so exit loop
endif
$P=$P+1
Until $P = 6
;Station's additional printers
$P=1
Do
$Printer = ReadProfileString("Y:\@wksta\Station.ini","Additional Printers","Printer" + $P)
if $Printer <> ""
PrintLog(" Connecting: " + "P:\Con2Prt /c " + $Printer,1)
SHELL "P:\Con2Prt /c " + $Printer
else
$P = 5 ;no more so exit loop
endif
$P=$P+1
Until $P = 6
; set default printer
$Printer = ReadProfileString("Y:\Stations.ini","Printers",@WKSTA)
if $Printer = "" OR $Printer = "NONE" OR $Printer = "Local"
$Printer = ReadProfileString("Y:\Stations.ini","Local Printers",@WKSTA)
If $Printer = ""
Return
else
$Printer = SubStr($Printer,1,InStr($Printer,",")-1)
endif
if SetDefaultPrinter("$Printer")=0 ?
PrintLog("Setting Default Printer to $Printer")
else
PrintLog("No Network Printer set for this station",1)
if INGROUP("Domain Admins") ;fix it
;Create entry ready to be completed
WriteProfileString("Y:\Stations.ini","Printers",@WKSTA,"NONE")
SelectPrinter
endif
endif
else
PrintLog("Default: " + "P:\Con2Prt /cd " + $Printer,1)
SHELL "P:\Con2Prt /cd " + $Printer
endif
EndFunction
