Prim Resizer Script

Does anyone know of a prim resizer script that i could put the size coordinates into and drop it into a prim it'd resize it to that size and delete itself (the script) without changing anything else about the prim? I have over 400 displays for my store I want to resize and would rather not have to type in the sizes for each one seperately.

//http://wiki.secondlife.com/wiki/LlSetPrimitiveParams
//http://wiki.secondlife.com/wiki/LlRemoveInventory
vector size = < 10.0 , 10.0 , 10.0 > //x,y,z , range [0.001 ; 10.0]
default{
on_rez(){
llSetPrimitiveParams([PRIM_SIZE,size]); //script resizes its prim to "size" vector
llOwnerSay("last words: "+ (string)size); //scripts last words for checkup
llRemoveInventory(llGetScriptName()); //script suicide
llOwnerSay("Craaaawling iiiiiiiiin my skiiiiiiiiiiiiiiiiiiiiiin"; //in case it didnt delete itself, this is its error message
}}