Expanding a list

Questions
1

Hello,
can somebody help me :

Given a list of Integers, say v={5, 4, 0, 6}
and a list of allowed positions, say pos={1, 3} (but it might be {1, 2, 3} or {2} or …),
I need an automatic expansion of v equivalent to, say : Table[{i, 4, j, 6},{i,2},{j,2}] where i and j occupy the positions defined by pos.
Please remember that pos migth be {1, 2, 3} so that i,j and k would be needed in that case.
Thanks for the help !
André

2

An attempt:

v = {5, 4, 0, 6};
pos = {1, 3};
vars = Table[i[k], {k, Length[pos]}];
Table[Evaluate@ReplacePart[v, Thread[pos -> vars]], 
 Evaluate[Sequence @@ Map[{#, 2} &, vars]]]
3

Thanks a lot, it fixes the question neatly !