Try getting the script with "Save By-Group Script":
jthi_0-1630591811262.png
Names Default To Here(1);
dt = Open("$SAMPLE_DATA/Variability Data/2 Factors Crossed.jmp");
var_chart = Variability Chart(
Y(:Measurement),
X(:part#),
Std Dev Chart(0),
By(:Operator)
);
-Jarmo