It has been a while, but need some help from ya all. Printer probleems seem to appear very often. But I haven't found this one yet.
So here it go...
We decided to choose on witch printer the user may print. So I wrote this little script...Everything works fine..except for one thing. We use Exact 7.1 (all the Dutchfolks here know what it is) for DOS.
Therefore you need to make a "net use :lpt1 \\servername\printername" connection.
Because we are adding those new printers..
the net use connection also has to be established. But when we do this in our script...it fails for our NT workstations.
For Win95 is works fine...
Here's the script...
quote:
CLSsetconsole("hide")
;Verwijder alle Printerconnecties met PDC en SQL-server
If InGroup ("Domain Users")
$ = DelPrinterConnection ("\\MSNSRV\HP4050_IMPAS")
$ = DelPrinterConnection ("\\MSNSRV\HP45MAG")
$ = DelPrinterConnection ("\\MSNSRV\HP4INK")
$ = DelPrinterConnection ("\\MSNSRV\HP4VTEK")
$ = DelPrinterConnection ("\\MSNSRV\HP5ADM")
$ = DelPrinterConnection ("\\MSNSRV\HP5PROJ")
$ = DelPrinterConnection ("\\MSNSRV\HP5VK1")
$ = DelPrinterConnection ("\\MSNSRV\HP6PICT")
$ = DelPrinterConnection ("\\MSNSRV\HP6PIMPAS")
$ = DelPrinterConnection ("\\MSNSRV\HP8000")
$ = DelPrinterConnection ("\\MSNSRV\HPLJ2100DIR")
$ = ;DelPrinterConnection ("\\MSNSRV\Océ 9400")
$ = DelPrinterConnection ("\\WH-SQL\HP4050_IMPAS")
$ = DelPrinterConnection ("\\WH-SQL\HP45MAG")
$ = DelPrinterConnection ("\\WH-SQL\HP4INK")
$ = DelPrinterConnection ("\\WH-SQL\HP4VTEK")
$ = DelPrinterConnection ("\\WH-SQL\HP5ADM")
$ = DelPrinterConnection ("\\WH-SQL\HP5PROJ")
$ = DelPrinterConnection ("\\WH-SQL\HP5VK1")
$ = DelPrinterConnection ("\\WH-SQL\HP6PICT")
$ = DelPrinterConnection ("\\WH-SQL\HP6PIMPAS")
$ = DelPrinterConnection ("\\WH-SQL\HPLJ2100DIR")
endif
;Maak nieuwe printers aan en zet default printer
If InGroup ("Administrators")
$ = AddPrinterConnection ("\\WH-SQL\HP6PICT")
$ = AddPrinterConnection ("\\WH-SQL\4000REC")
$ = AddPrinterConnection ("\\WH-SQL\HP4050_IMPAS")
$ = AddPrinterConnection ("\\WH-SQL\HP45MAG")
$ = AddPrinterConnection ("\\WH-SQL\HP4INK")
$ = AddPrinterConnection ("\\WH-SQL\HP4VTEK")
$ = AddPrinterConnection ("\\WH-SQL\HP5ADM")
$ = AddPrinterConnection ("\\WH-SQL\HP5PROJ")
$ = AddPrinterConnection ("\\WH-SQL\HP5VK1")
$ = AddPrinterConnection ("\\WH-SQL\HP6PIMPAS")
$ = AddPrinterConnection ("\\WH-SQL\HPLJ2100DIR")
$ = AddPrinterConnection ("\\MSNSRV\HP8000")
$ = AddPrinterConnection ("\\MSNSRV\HPLJ5000")
$ = AddPrinterConnection ("\\MSNSRV\Océ 9400")
$ = setdefaultprinter("\\wh-sql\hp6pict")
endif
If InGroup ("OGG-Engineering")
$ = AddPrinterConnection ("\\MSNSRV\HP8000")
$ = AddPrinterConnection ("\\WH-SQL\HP4VTEK")
$ = AddPrinterConnection ("\\WH-SQL\HP5PROJ")
$ = setdefaultprinter("\\wh-sql\HP8000")
endif
If InGroup ("OGG-Administratie")
$ = AddPrinterConnection ("\\WH-SQL\HP5ADM")
$ = AddPrinterConnection ("\\MSNSRV\HPLJ5000")
$ = setdefaultprinter("\\wh-sql\HP5ADM")
endif
If InGroup ("OGG-KAM_R&D")
$ = AddPrinterConnection ("\\MSNSRV\HPLJ5000")
$ = AddPrinterConnection ("\\WH-SQL\HP5ADM")
$ = setdefaultprinter("\\wh-sql\HPLJ5000")
endif
If InGroup ("OGG-Verkoop")
$ = AddPrinterConnection ("\\WH-SQL\HP5VK1")
$ = AddPrinterConnection ("\\MSNSRV\HPLJ5000")
$ = setdefaultprinter("\\wh-sql\HP5VK1")
endif
If InGroup ("OGG-Directie")
$ = AddPrinterConnection ("\\WH-SQL\HPLJ2100DIR")
$ = AddPrinterConnection ("\\WH-SQL\HP5VK1")
$ = setdefaultprinter("\\wh-sql\HPLJ2100DIR")
endif
If InGroup ("OGG-Inkoop")
$ = AddPrinterConnection ("\\WH-SQL\HP4INK")
$ = AddPrinterConnection ("\\WH-SQL\4000REC")
$ = setdefaultprinter("\\wh-sql\HP4INK")
endif
If InGroup ("OGG-Magazijn")
$ = AddPrinterConnection ("\\WH-SQL\HP45MAG")
$ = setdefaultprinter("\\wh-sql\HP45MAG")
endif
If InGroup ("OGG-Receptie")
$ = AddPrinterConnection ("\\WH-SQL\4000REC")
$ = setdefaultprinter("\\WH-SQL\4000REC")
endif
If InGroup ("OGG-Projectbureau")
$ = AddPrinterConnection ("\\WH-SQL\4000REC")
$ = setdefaultprinter("\\WH-SQL\4000REC")
endif
If InGroup ("OGG-Projectleiders")
$ = AddPrinterConnection ("\\WH-SQL\HP5PROJ")
$ = AddPrinterConnection ("\\MSNSRV\HP8000")
$ = AddPrinterConnection ("\\WH-SQL\HP4VTEK")
$ = setdefaultprinter("\\WH-SQL\HP5PROJ")
endif
;LPT1 verwijzing voor Exact
If InGroup ("Administrators")
use lpt1: /d
use lpt1: "\\wh-sql\HP6PICT"
endif
If InGroup ("OGG-Engineering")
use lpt1: /d
use lpt1: "\\MSNSRV\HP8000"
endif
If InGroup ("OGG-Administratie")
use lpt1: /d
use lpt1: "\\WH-SQL\HP5ADM"
endif
If InGroup ("OGG-KAM_R&D")
use lpt1: /d
use lpt1: "\\MSNSRV\HPLJ5000"
endif
If InGroup ("OGG-Verkoop")
use lpt1: /d
use lpt1: "\\MSNSRV\HPLJ5000"
endif
If InGroup ("OGG-Directie")
use lpt1: /d
use lpt1: "\\MSNSRV\HPLJ5000"
endif
If InGroup ("OGG-Inkoop")
use lpt1: /d
use lpt1: "\\WH-SQL\HP4INK"
endif
If InGroup ("OGG-Magazijn")
use lpt1: /d
use lpt1: "\\WH-SQL\HP45MAG"
endif
If InGroup ("OGG-Receptie")
use lpt1: /d
use lpt1: "\\WH-SQL\4000REC"
endif
If InGroup ("OGG-Projectbureau")
use lpt1: /d
use lpt1: "\\WH-SQL\4000REC"
endif
If InGroup ("OGG-Projectleiders")
use lpt1: /d
use lpt1: "\\WH-SQL\HP5PROJ"
endif
exit
The first script I'v e tried, whas like this..
But it didn't work out either.
Is there annybody with a idea or sollusion?
Let me know
[ master of nothing ] 
on our homepage has been linked to related 
