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
>> >
>> >
>>
>>
>
>
Facebook
Twitter
Instagram