Okay, I'm no expert, but this is what I would try

Code:

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


I think that should work?
_________________________
Micah Davis "A truly wise man never plays leapfrog with a unicorn."