Network Printing

Code:

---

on error resume next

Set WshNetwork = CreateObject("WScript.Network")

Dim Compname

Compname = WSHNetwork.ComputerName

if left(compname,8) = "JNRCLASS" then

        PrinterPath = "\\curricsvr1\JUNIOR-SUITE"
        PrinterPath2 = "\\curricsvr1\LIBRARY"
       
          WshNetwork.AddwindowsPrinterConnection PrinterPath
          WshNetwork.AddwindowsPrinterConnection PrinterPath2
        WshNetwork.SetDefaultPrinter "\\curricsvr1\LIBRARY"

end if

---

and so on and so on....

are the new printer shares the same as the old brand of printer ( same port etc ) ? if so it might be getting a tad confused .. try a different ip for the printers and a different share name

Enable Loopback so you can assign the printers by OU

heres my script i use to add first remove old printers then add some new ones

Quote:

---

ON ERROR RESUME NEXT

Set WshNetwork = WScript.CreateObject("WScript.Network")

'Remove old printers
WshNetwork.RemovePrinterConnection "\\SERVER\MusicBWLaser", True, True

'Install new Printers
WshNetwork.AddWindowsPrinterConnection "\\SERVER\MusicBWLaser"

'set default Printer
WshNetwork.SetDefaultPrinter "\\SERVER\MusicBWLaser"

'Clean Up Memory Used
Set WshNetwork = Nothing

wscript.quit

---

Yeah, starting to think it was a bad idea literally replacing the printers and not changing share names or IP's :(
Without messing with assigning printers to OU's at the moment. Is there a way i could add that to my current VBs script?

There is a much simpler way with 2003/XP to map printers rather than Group Policy or login scripts. This remotely adds a network printer to a machine permanently (well, unlees the machine is re-imaged or the delete cmd is run). Just create a batch file as per example attached and run it once, see attached zip file.

Very cool Teejay.

As a quick fix, would renaming the printers help? For example ive got STAFF-ROOM, would changing it to STAFF ROOM help?

Should do, but I would avoid using spaces in printer names.

Ah ok....underscore it is then!

Your being too kind to staff, call it something like KY27MFP ;-)

lol! Noooo, i'm making my life easier cus this way i dont have to talk to them to explain which printer is which!!! ;)

maybe StaffroomBW or StaffroomColour

i like to label them like that to stop them sending stuff to the wrong one..

id suggest using loopback processing and assigning printers by Computer OU

Its a lot easier ;)

I have never had printer or driver problems .. apart from the occasional fudge up when something gets stuck

I also really think this is a sharename/IP problem so give the printer a new IP and create a new port for it .. and change the sharename.

You know they'll just send everything to the default printer anyway, then try printing it another 5-10 times when it doesn't magically appear from the printer nearest to them ;-)

ohhh god thats so true... :(

I must patent a device that can be installed in teachers/students (where it's installed, use your imagination:p) that monitors their exact location in school and redirects printing to the nearest printer.

Quote:

---

Originally Posted by teejay

I must patent a device that can be installed in teachers/students (where it's installed, use your imagination:p) that monitors their exact location in school and redirects printing to the nearest printer.

---

LOL

How about
Loop Back enabled .
Multiple OU's for Rooms dependant on the location of the nearest printer
then my script above to do it

for e.g.
Room 1 has 2 printers
I create two OU's called Room1a and room1b

all the pcs nearest to printer 1 gots in room1a
all the pcs nearest to printer 2 goes in room1b

different printer scripts setting the default printer in each OU

See ive beaten you to it .

Yes that works for static PC's, so does the utility I posted. The problem is laptops when they move around to different rooms, so I still need to patent my device ;)