This example displays the type of scripting language used in the first shape in the active document.
Set objScr = ActiveDocument.Shapes(1).Script
If Not (objScr is Nothing) Then
Select Case objScr.Language
Case msoScriptLanguageVisualBasic
MsgBox "VBScript"
Case msoScriptLanguageJava
MsgBox "JavaScript"
Case msoScriptLanguageASP
MsgBox "Active Server Pages"
Case Else
Msgbox "Other scripting language"
End Select
End If