let objScr = ActiveDocument.Shapes.Item(1).script
if(objScr){
    switch(objScr.Language){
        case msoScriptLanguageVisualBasic:
            MsgBox("VBScript")
            break
        case msoScriptLanguageVisualBasic:
            MsgBox("JavaScript")
            break
        case msoScriptLanguageVisualBasic:
            MsgBox("Active Server Pages")
            break
        default:
            Msgbox("Other scripting language")
    }
}