Here, you can delete the keys. Be sure you do not want to replace them like in the old thread.
Delete is forever.
Code:
If NOT @LOGONMODE
	Break On
Else
	Break Off
EndIf
Dim $RC
$RC=SetOption("Explicit", "On")
$RC=SetOption("NoMacrosInStrings", "On")
$RC=SetOption("NoVarsInStrings", "On")
$RC=SetOption("WrapAtEOL", "On")

Dim $Ptr, $index, $OldServer
$index = 0
$OldServer = "OldServer"

$Ptr = EnumKey("HKCU\Printers\Connections\",$index)
While NOT @ERROR
	;"Printer with index " + $index + ": " + $Ptr ?
	If InStr($Ptr,$OldServer)
		;"KeyName to delete: " + "HKCU\Printers\Connections\" + $Ptr + "\" ?
		$RC = DelKey("HKCU\Printers\Connections\" + $Ptr + "\")
	EndIf
	
	$index = $index + 1
	$Ptr = EnumKey("HKCU\Printers\Connections\",$index)
Loop