Adding printers to multiple users

Archived from groups: microsoft.public.win2000.active_directory (More info?)

Hi

i have an AD of around 400 computers, separated into a few different
departments. a directive has come down from head office that all the
printer names have to be renamed to a particular way. i do not want to have
to go round every single PC to re-add the printers!

i have tried renaming the sharename of a certain printer on the server and
hoping that a PC *picks* it up on reboot. it turns out that doesn't work!

i hope i have explained myself!

what would be the best way to tackle this problem without having to go round
to every PC?

Thanks in Advance

Shaun
3 answers Last reply
More about adding printers multiple users
  1. Archived from groups: microsoft.public.win2000.active_directory (More info?)

    Get on your walking shoes. You will have to visit each machine.

    --

    Paul Bergson MCT, MCSE, MCSA, CNE, CNA, CCA

    This posting is provided "AS IS" with no warranties, and confers no rights.


    "letmeoutofhere" <jim@bob.com> wrote in message
    news:#w806jKJFHA.1948@TK2MSFTNGP14.phx.gbl...
    > Hi
    >
    > i have an AD of around 400 computers, separated into a few different
    > departments. a directive has come down from head office that all the
    > printer names have to be renamed to a particular way. i do not want to
    have
    > to go round every single PC to re-add the printers!
    >
    > i have tried renaming the sharename of a certain printer on the server and
    > hoping that a PC *picks* it up on reboot. it turns out that doesn't work!
    >
    > i hope i have explained myself!
    >
    > what would be the best way to tackle this problem without having to go
    round
    > to every PC?
    >
    > Thanks in Advance
    >
    > Shaun
    >
    >
  2. Archived from groups: microsoft.public.win2000.active_directory (More info?)

    bummer!

    thanks anyway (i think!)

    "Paul Bergson" <pbergson_nospam@allete.com> wrote in message
    news:ePw8z2KJFHA.1096@tk2msftngp13.phx.gbl...
    > Get on your walking shoes. You will have to visit each machine.
    >
    > --
    >
    > Paul Bergson MCT, MCSE, MCSA, CNE, CNA, CCA
    >
    > This posting is provided "AS IS" with no warranties, and confers no
    rights.
    >
    >
    >
    > "letmeoutofhere" <jim@bob.com> wrote in message
    > news:#w806jKJFHA.1948@TK2MSFTNGP14.phx.gbl...
    > > Hi
    > >
    > > i have an AD of around 400 computers, separated into a few different
    > > departments. a directive has come down from head office that all the
    > > printer names have to be renamed to a particular way. i do not want to
    > have
    > > to go round every single PC to re-add the printers!
    > >
    > > i have tried renaming the sharename of a certain printer on the server
    and
    > > hoping that a PC *picks* it up on reboot. it turns out that doesn't
    work!
    > >
    > > i hope i have explained myself!
    > >
    > > what would be the best way to tackle this problem without having to go
    > round
    > > to every PC?
    > >
    > > Thanks in Advance
    > >
    > > Shaun
    > >
    > >
    >
    >
  3. Archived from groups: microsoft.public.win2000.active_directory (More info?)

    Add something to your logon script to the effect of:

    -----------------start script-------------------------
    Set WshNetwork = WScript.CreateObject("WScript.Network")
    Set oPrinters = WshNetwork.EnumPrinterConnections

    For i = 0 to oPrinters.Count - 1 Step 2
    WScript.Echo "Checking: " & oPrinters.Item(i+1)

    If UCase(oPrinters.Item(i+1)) = "\\TDFP01\BSM1" Then
    WshNetwork.RemovePrinterConnection "\\TDFP01\BSM1",True,True
    WshNetwork.AddWindowsPrinterConnection "\\ccps01\WGBSM1", True,True
    End If

    If UCase(oPrinters.Item(i+1)) = "\\TDFP01\BSM2" Then
    WshNetwork.RemovePrinterConnection "\\TDFP01\BSM2",True,True
    WshNetwork.AddWindowsPrinterConnection "\\ccps01\WGBSM2", True,True
    End If

    If UCase(oPrinters.Item(i+1)) = "\\TDFP01\TCI_Admin1" Then
    WshNetwork.RemovePrinterConnection "\\TDFP01\TCI_Admin1",True,True
    WshNetwork.AddWindowsPrinterConnection "\\ccps01\WGTCI_Admin1", True,True
    End If

    Next
    ----------------end script----------------------
    and check out part of this - merge the needed pieces with the above script,
    and add to logon script:

    ----------------start script-----------------------
    Dim strComputer, sPrinterPath, sPrinterName, sDefaultPrinter, sOldPrntSrv,
    sNewPrntSrv

    sOldPrntSrv = "<oldprintserver>"
    sNewPrntSrv = "<newprintserver>"

    Set WshNetwork = CreateObject("WScript.Network")

    'Grab the old print info, set the printer name as a variable
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colInstalledPrinters = objWMIService.ExecQuery _
    ("Select * from Win32_Printer")
    For Each objPrinter in colInstalledPrinters
    sPrinterPath = objPrinter.Name
    If Instr(sPrinterPath, sOldPrntSrv) Then
    Length = Len(sPrinterPath)
    sPrinterName = Right(sPrinterPath,Length - InStrRev(sPrinterPath,"\"))

    'See if it is the default printer; if so, set a variable to use for the
    replacement
    If objPrinter.Default = True Then
    sDefaultPrinter = sPrinterName
    End If

    'Delete the old printer connection

    WshNetwork.RemovePrinterConnection "\\" & sOldPrntSrv & "\" & sPrinterName

    'Create the new printer with the same printer name

    WshNetwork.AddWindowsPrinterConnection "\\" & sNewPrntSrv & "\" &
    sPrinterName

    End If
    Next

    'Set the new default printer

    WshNetwork.SetDefaultPrinter "\\" & sNewPrntSrv & "\" & sDefaultPrinter
    -----------------end script--------------------------


    "letmeoutofhere" <jim@bob.com> wrote in message
    news:%23eeFI8KJFHA.2844@TK2MSFTNGP10.phx.gbl...
    > bummer!
    >
    > thanks anyway (i think!)
    >
    > "Paul Bergson" <pbergson_nospam@allete.com> wrote in message
    > news:ePw8z2KJFHA.1096@tk2msftngp13.phx.gbl...
    >> Get on your walking shoes. You will have to visit each machine.
    >>
    >> --
    >>
    >> Paul Bergson MCT, MCSE, MCSA, CNE, CNA, CCA
    >>
    >> This posting is provided "AS IS" with no warranties, and confers no
    > rights.
    >>
    >>
    >>
    >> "letmeoutofhere" <jim@bob.com> wrote in message
    >> news:#w806jKJFHA.1948@TK2MSFTNGP14.phx.gbl...
    >> > Hi
    >> >
    >> > i have an AD of around 400 computers, separated into a few different
    >> > departments. a directive has come down from head office that all the
    >> > printer names have to be renamed to a particular way. i do not want to
    >> have
    >> > to go round every single PC to re-add the printers!
    >> >
    >> > i have tried renaming the sharename of a certain printer on the server
    > and
    >> > hoping that a PC *picks* it up on reboot. it turns out that doesn't
    > work!
    >> >
    >> > i hope i have explained myself!
    >> >
    >> > what would be the best way to tackle this problem without having to go
    >> round
    >> > to every PC?
    >> >
    >> > Thanks in Advance
    >> >
    >> > Shaun
    >> >
    >> >
    >>
    >>
    >
    >
Ask a new question

Read More

Printers Microsoft Active Directory Windows