MapPrinter.udf:
Code:

Function MapPrinter($sPrinter)
   Dim $asPrinterBits
 
   $asPrinterBits=Split($sPrinterPath,"\")
 
   If KeyExist("HKEY_CURRENT_USER\Printers\Connections\,,"+$asPrinterBits[2]+","+$asPrinterBits[3])
      "Printer '"+$sPrinter+'" already present"+@CRLF
   Else
      If AddPrinterConnection($sPrinter)
         "Cannot add printer  '"+$sPrinter+"'"+@CRLF
         "Reason: ["+@ERROR+"] "+@SERROR+@CRLF
         Exit @ERROR
      Else
         "Printer '"+$sPrinter+"' succesfully added."+@CRLF
      EndIf
   EndIf
 
   Exit 0
 
EndFunction


Addprinter.kix:
Code:
 
Call "%LOGONSERVER%\NETLOGON\MapPrinter.udf"

;add printers
MapPrinter("\\Finasserver\2100_DLS") 
MapPrinter("\\Finasserver\2100_DLS_2")
MapPrinter("\\Finasserver\2100_Victor")
MapPrinter("\\Finasserver\2200_Aflev")
MapPrinter("\\Finasserver\2200_Planning")
MapPrinter("\\Finasserver\2200_CTR")
MapPrinter("\\Finasserver\2200_DTS")
MapPrinter("\\Finasserver\2200_HR")
MapPrinter("\\Finasserver\2200_Logistiek")
MapPrinter("\\Finasserver\2200_Magazijn")
MapPrinter("\\Finasserver\2200_receptie")
MapPrinter("\\Finasserver\2200_Sales")
MapPrinter("\\Finasserver\2200_Secretariaat")
MapPrinter("\\Finasserver\2200_SLS")
MapPrinter("\\Finasserver\2200_Tanja")
MapPrinter("\\Finasserver\2300_Automatisering")
MapPrinter("\\Finasserver\2300_Inkoop")
MapPrinter("\\Finasserver\2300_Planning")
MapPrinter("\\Finasserver\2300_DLS")
MapPrinter("\\Finasserver\2300_Warehousing")
MapPrinter("\\Finasserver\4000_Order")
MapPrinter("\\Finasserver\4100_DLS")
MapPrinter("\\Finasserver\4100_DLS_landscape")
MapPrinter("\\Finasserver\4100_Finan")
MapPrinter("\\Finasserver\4450C_Sales")



regards,

jeroen