just do:
fnRemapPrinter("server1","server4")

anyways, like said, you need to change these lines too:
Code:

$nul = DelPrinterConnection($sOldPath)
$nul = AddPrinterConnection($sNewPath)


to something like:
Code:

$share=Split($sPrinters[$i],",")
$share=$share[ubound($share)]
$nul = DelPrinterConnection("\\"+$sOldPath+"\"+$share)
$nul = AddPrinterConnection("\\"+$sNewPath+"\"+$share)
_________________________
!

download KiXnet