On error resume next

'Define printers and print server
strPrintServer = "\\print_server_name"
strDefaultPrinter = ""
strPrinterToRemove = "OldPrinterNmae"
strReplacementPrinter = "NewPrinterName"

'Set up connections
Set objNetwork = WScript.CreateObject("WScript.Network")

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colPrinters = objWMIService.ExecQuery("Select * From Win32_Printer")
For Each objPrinter in colPrinters
	If lcase(objItem.ShareName) = lcase(strPrinterToRemove) Then
		objNetwork.RemoveWindowsPrinterConnection strPrintServer & "\" & strPrinterToRemove
		objNetwork.AddWindowsPrinterConnection strPrintServer & "\" & strReplacementPrinter
			'Check for Default
			If objPrinter.Default = True Then
				objNetwork.SetDefaultPrinter strPrintServer & "\" & strReplacementPrinter
			End If
	End If
Next