$index = Execute("Exit 0")
While @Error <> 259
   $key = EnumKey("HKCU\Network",$index)
   If $key
      $value = ReadValue ("HKCU\network\"+$key,"RemotePath")
      ? $key
      ? "Path : "+$value
      ?
   Endif
   $index = $index+1
Loop

get $