wow! i appreciate the prompt respose. you guys rule. however the script did not work and the reg keys remain.. here is what i have \:\(

IF INGROUP("Domain Users")

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
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

ENDIF