Ok, that doesn't cut it.
Have a look at the example below. It should work just fine. I personally prefer a different approach as shown in teh second example. Basically is does the same it’s just matter of going left or right around and still ending up in the same place. Use whatever feels best.

Code:

Break on

$rc =  DelPrinterConnections()


;=-=-=-=-=-=-=-=-= DO NOT MODIFY ANYTHING BELOW THIS LINE =-=-=-=-=-=-=-=-=
;=-=-=-=-=-=-=-=-= THIS IS A UDF AND IT IS READY AS IT IS NOW =-=-=-=-=-=-=-=-=
;Function:
;        DelPrinterConnections()
;
;Author:
;        Lonkero
;
;Version:
;        1.1
;
;Version History:
;        1.0 - Fri Jan 24 2003 - old enumkey code that failed every second printer
;
;Action:
;        deletes current printer connections
;
;Syntax:
;        Delprinterconnections
;
;Remarks:
;        written for kix versions that does not support delprinterconnection("")
;
;Example:
;        "unmapping printers..."
;        DelPrinterConnections
;        ? "Done."
;
;Source:
Function DelPrinterConnections() 
Dim $bk,$conn 
 $bk="HKEY_CURRENT_USER\Printers\Connections" 
 Do
  $conn=DelKey($bk+"\"+EnumKey($bk,0))
 Until @error
EndFunction

Code:

;======== Delete all network printers ========
;Delete all mapped network printers
$key = "HKEY_CURRENT_USER\Printers\Connections"
$printers = ArrayEnumKey($key)
For Each $printer in $printers
	$rc = DelKey($key + "\" + $printer)
Next


;=-=-=-=-=-=-=-=-= DO NOT MODIFY ANYTHING BELOW THIS LINE =-=-=-=-=-=-=-=-=
;=-=-=-=-=-=-=-=-= THIS IS A UDF AND IT IS READY AS IT IS NOW =-=-=-=-=-=-
;NAME          ArrayEnumKey
;
;ACTION        Creates an array of names of the subkeys contained in a registry key or subkey
;
;AUTHOR        Jens Meyer (sealeopard@usa.net)
;
;VERSION       1.2 (added error codes)
;              1.1
;
;DATE CREATED  2001/12/05
;
;DATE MODIFIED 2003/05/17
;
;KIXTART       4.12+
;
;SYNTAX        ARRAYENUMKEY($subkey)
;
;PARAMETERS    SUBKEY
;              Required string containing the key or subkey for which the subkeys will be enumerated
;
;RETURNS       Array containing the subkeys
;
;REMARKS       none
;
;DEPENDENCIES  none
;
;EXAMPLE       $retcode=arrayenumkey('HKEY_USERS')
;
;KIXTART BBS   http://www.kixtart.org/cgi-bin/ultimatebb.cgi?ubb=get_topic&f=12&t=000064
;
Function arrayenumkey($regsubkey)
  Dim $retcode, $subkeycounter, $currentsubkey, $subkeyarray

  If Not KeyExist($regsubkey)
    Exit 87
  EndIf

  $subkeycounter=0
  Do
    $currentsubkey=EnumKey($regsubkey,$subkeycounter)
    If Not @ERROR
      ReDim preserve $subkeyarray[$subkeycounter]
      $subkeyarray[$subkeycounter]=$currentsubkey
      $subkeycounter=$subkeycounter+1
    EndIf
  Until @ERROR

  $arrayenumkey=$subkeyarray
  Exit 0
EndFunction

KiXtart FAQ & How to's » How to use UDFs