on error resume next

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

Set colPrinters = objNetwork.EnumPrinterConnections

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set wshShell = CreateObject( "WScript.Shell" )

‘ specify the path to the file you created earlier

sFile = "printers.txt"

oldServer = "OLD_SERVER"

newServer = "NEW_SERVER"

If objFSO.FileExists(sFile) Then

‘ read default printer settings

strKey = "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows\Device"

strCurPrinter = Trim( Split( wshShell.RegRead( strKey ), "," )(0) )

‘WScript.Echo "Current Default printer – " & strCurPrinter

‘We form the name of the new default printer

strNewPrinter = Replace (strCurPrinter, oldServer , newServer)

‘ We make replacing your printer on new

If strCurPrinter <> strNewPrinter Then

objNetwork.AddWindowsPrinterConnection strNewPrinter

‘WScript.Echo "New Default printer – " & strNewPrinter

objNetwork.SetDefaultPrinter strNewPrinter

objNetwork.RemovePrinterConnection strCurPrinter

End if

‘ Read from a file printer list

Set oFile = objFSO.OpenTextFile(sFile, 1)

‘ in a loop we read a line from a file

Do While Not oFile.AtEndOfStream

sText = oFile.ReadLine

If Trim(sText) <> "" Then

‘WScript.Echo "value from file – " & sText

‘ We are comparing each line found in printers

For i = 0 to colPrinters.Count -1 Step 2

‘WScript.Echo "Value from Windows – " & colPrinters.Item (i+1)

‘ If the comparison is successful the form variable and call the subroutine newPrinter replacement printer

If Ucase(colPrinters.Item (i+1)) = Ucase(sText) Then

oldPrinter = sText

newPrinter = Replace (oldPrinter, oldServer, newServer)

SwapPrinter

End If

next

End If

Loop

oFile.Close

else

WScript.Echo "File – " & sFile & " not found."

End If

WScript.Quit

‘ подпрограмма замены принтера

Sub SwapPrinter

Set WshNetwork = CreateObject("WScript.Network")

WScript.Echo "Create new printer – " & newPrinter

WshNetwork.AddWindowsPrinterConnection newPrinter

WScript.Echo "Delete old printer – " & oldPrinter

WshNetwork.RemovePrinterConnection oldPrinter

End Sub