Set objSysInfo = CreateObject("ADSystemInfo")
Set objNetwork = CreateObject("WScript.Network")
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set Printers = WshNetwork.EnumPrinterConnections
For i = 0 to Printers.Count - 1 Step 2
    If ucase(Printers.Item(i+1)) = "\\oldserver\printersharename" Then
        WSHNetwork.RemovePrinterConnection Printers.Item(i+1)
	objNetwork.AddWindowsPrinterConnection "\\newserver\printersharename"
    End IF
    If ucase(Printers.Item(i+1)) = "\\oldserver\printer2" Then
        WSHNetwork.RemovePrinterConnection Printers.Item(i+1)
	objNetwork.AddWindowsPrinterConnection "\\newserver\printer2"
    End IF
Next