Computing the Wiener index in Sierpinski carpet graphs