dim $val1, $r, $reg, $key

$reg = "HKEY_CURRENT_USER\Software\Meditech\Wrkstn\INIPTPDRIVER"
$key = "\\\\ICC_ADMIN\\I31301"

If KeyExist($reg)
   $val1 = ReadValue($reg, $key)
   If NOT $val1 = "PPII"
      $r = WriteValue($reg, $key, "PPII","REG_SZ")
   Else
   EndIf

$key='HKEY_CURRENT_USER\Software\Meditech\Wrkstn\INIPTPDRIVER'
$values=arrayenumvalue($key) ;UDF
for each $value in $values
  $data=readvalue($key,$value)
  if left($data,7)='HPLaser'
    $rc=writevalue($key,$value,'PPII','REG_SZ')
  endif
next

Quote:

---

I'm no expert

---

	Call w:\arrayenumvalue.udf
	$Print='HKEY_CURRENT_USER\Software\Meditech\Wrkstn\INIPTPDRIVER'
	$values=arrayenumvalue($Print)
		For Each $value In $values
		$data=ReadValue($Print,$value)
		If Left($data,1)=''
		$rc=WriteValue($Print,$value,'PPII','REG_SZ')
		EndIf
	Next