code:

---

function ImportRegfile($)
   Dim $A[4], $C, $D, $G, $i, $K, $N, $o
   $o = createobject("VBscript.RegExp")
   $o.Global = 1

   if ubound($)<0
      $=$,""
   endif
   for each $ in $
      $=open(1,$)
      do
         $C=$C+ReadLine(1)+"`"
      until @error
      $=close(1)
   next

   $=join(split($C,"\`  "),"")

   $o.Pattern = '`\[(\-?)(.*?)\](?=`)|`"?([\w\- ]+)?@@?"?=("|.{3,6}\:)?(.*?)"?(?=`)'
   for each $ in $o.Execute($)
      for $i=0 to 4
       $A[$i]=$.SubMatches($i)
      next

      if $A[1]
         $K=$A[1]
         if $A[0]
            $=DelKey($K)
         else
            $=AddKey($K)
         endif
      else
         ;Add Values
         $N=$A[2]
         $D=$A[4]
         for $i=0 to 5
            if $A[3]=split('dword: hex: " hex(2):  hex(7):')[$i]
               $=$i
            endif
         next
         if $=0
            $D=val("&"+$D)
         endif
         for each $C in split($D,",")
            if $=3 | $C>"00" & $=5
               $i=execute('$C=Chr(&'+$C+')')
            endif
            $G=""+$G+$C
         next
         $D=$G
         $G=""
         if $=5
               $D=join(split($D,'0000'),"|")
         endif

         ;Write Value
         if $D="-"
            $=DelValue($K, $N)
         else
            $=WriteValue($K, $N, $D, "REG_"+split('DWORD BINARY SZ EXPAND_SZ  MULTI_SZ')[$])
         endif
      endif
   next
   $ImportRegfile=0
   exit 0
endfunction
  

---

code:

---

$IP0=Split(@IPADDRESS0,'.')[0]

---

quote:

---

jens, did you check your registry hives?
all the deleted keys produce -key_to_be_deleted in there somewhere...

---

Not on my Windows 2000 machine

At least not where they were supposed to be imported.