now, i'am confused..

-----------------------------------------------

$sOldPath = "\\server1"
$sNewPath = "\\server4"

Function fnRemapPrinter($sOldPath,$sNewPath)
Dim $i,$nul,$sPorts,$sDefault,$sPrinters[25]
If @INWIN=1
$sPorts="HKCU\Printers\Connections\"
$sDefault=Split(ReadValue("HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows","Device"),",")[0]
Do
$sPrinters[$i]=EnumKey($sPorts,$i)
$i=$i+1
If Ubound($sPrinters)=$i Redim Preserve $sPrinters[Ubound($sPrinters)+25] EndIf
Until @ERROR
Redim Preserve $sPrinters[$i-1]
For $i = 0 to Ubound($sPrinters)
If Join(Split($sPrinters[$i],","),"\") = $sOldPath
$nul = DelPrinterConnection($sOldPath)
$nul = AddPrinterConnection($sNewPath)
If $sDefault = $sOldPath
$nul = SetDefaultPrinter($sNewPath)
EndIf
EndIf
Next
EndIf
Exit @ERROR
EndFunction

---------------------------------------

What i make false?
thank you for your help