k, add this code at the end of your script:
Code:

function DelPrinterConnections() 
dim $c,$bk,$conn 
$c=0 
$bk="HKEY_CURRENT_USER\Printers\Connections" 
$conn=enumkey($bk,$c) 
while @error=0 
 $c=$c+1 
 $conn=delkey($bk+"\"+$conn) 
 $conn=enumkey($bk,$c) 
loop 
endfunction


and, where you did call the delprinterconnection(""), replace it with DelPrinterConnections()
let us know did that work, k?
_________________________
!

download KiXnet