Function DelPrinters()

  Dim $aPrinters[0]	; array of connections to delete
  Dim $P, $A		; pointers
  Dim $Key		; reg key
  Dim $Tmp		; tmp var
  Dim $Rv		; Return Value

  $A = -1
  $P = 0

  $Key = 'HKCU\Printers\Connections'
  $Tmp = EnumKey($Key, $P)
  If $Tmp			; at least one printer?
    While Not @ERROR 
      $A = $A + 1
      ReDim Preserve $aPrinters[$A]
      $aPrinters[$A] = $Tmp
      $P = $P + 1
      $Tmp = EnumKey($Key, $P)
    Loop

    For Each $P in $aPrinters
      'delete ' $Key '\' $P ?
      ;$Rv = DelKey($Key + '\' + $P)
    Next

  EndIf

EndFunction

If InGroup('this group')
  DelPrinters() ; call the function
EndIf

Function DelPrinters()  ; define the function
  ; code goes here...
EndFunction