You can get most of what you want just through point and click (which could be scripted if need be). See the code below to get an idea. But if you want to put the summary stats in the FrameBox (rather than in a table) you will have to write some more code.
NamesDefaultToHere(1);
// Sample data
dt = Open("$SAMPLE_DATA/Semiconductor Capability.jmp");
// Label by the variable we will plot
Column(dt, "NPN1") << Label(1);
// Variablity chart (double click on the vertical axis and look at the properties)
v = dt <<
Variability Chart(
Y( :NPN1 ),
X( :SITE ),
Variability Summary Report( 1 ),
Std Dev Chart( 0 ),
SendToReport(
Dispatch(
{"Variability Chart for NPN1"},
"2",
ScaleBox,
{Min( 80 ), Max( 150 ), Inc( 10 ), Minor Ticks( 4 ),
Add Ref Line( 0, "Dotted", "Medium Light Gray", "", 1 ),
Add Ref Line( 90, "Solid", "Medium Dark Red", "Low Limit", 1 ),
Add Ref Line( 140, "Solid", "Medium Dark Red", "High Limit", 1 )}
),
Dispatch(
{"Variability Chart for NPN1", "Variability Summary for NPN1"},
"Mean",
NumberColBox,
{Visibility( "Collapse" )}
),
Dispatch(
{"Variability Chart for NPN1", "Variability Summary for NPN1"},
"CV",
NumberColBox,
{Visibility( "Collapse" )}
),
Dispatch(
{"Variability Chart for NPN1", "Variability Summary for NPN1"},
"Std Err Mean",
NumberColBox,
{Visibility( "Collapse" )}
),
Dispatch(
{"Variability Chart for NPN1", "Variability Summary for NPN1"},
"Lower 95%",
NumberColBox,
{Visibility( "Collapse" )}
),
Dispatch(
{"Variability Chart for NPN1", "Variability Summary for NPN1"},
"Upper 95%",
NumberColBox,
{Visibility( "Collapse" )}
),
Dispatch(
{"Variability Chart for NPN1", "Variability Summary for NPN1"},
"Range",
NumberColBox,
{Visibility( "Collapse" )}
),
Dispatch(
{"Variability Chart for NPN1", "Variability Summary for NPN1"},
"Median",
NumberColBox,
{Visibility( "Collapse" )}
)
)
);