Help using printui.dll,PrintUIEntry for Printer Control

[ejbmail]

Why does this only delete 2 printer when there is 5 to delete?

Whats wrong.....

For $i= 1 to 50

$var = RegEnumKey("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Print\Printers", $i)

if @error <> 0 then ExitLoop

if StringInStr($var,"OKI") > 0 Then

;found OKI printer entry

MsgBox(4096, "SubKey" & $i, $var)

$Printer = $var

$Printer2 = StringReplace($Printer,"@","\@")

$ret = RunWait(@ComSpec & " /c " & 'rundll32 printui.dll,PrintUIEntry /dl /n "'& $Printer &'"',"",@SW_HIDE)

if $ret <> 0 Then

_SendToCore("Unable to delete" & $Printer & "Unable to delete Printer" & $ret)

sleep(2000)

;exit $ret

EndIf

EndIf

Next

Exit 0