#Python
from win32com.client import constants

f = Application.GetValue( "PlayControl.Current" )
Application.SelectKeysInTimespan( ".kine.*", constants.siSetKeySelection, f, f, constants.siAnimatedParameters )

' VBScript
SelectKeysInTimespan ".kine.*", siSetKeySelection,GetValue( "PlayControl.Current" ),GetValue( "PlayControl.Current" ),siAnimatedParameters 

Hat tip: luceric