'
' Use marking to key an null's X scaling, Y orientation and Z position 
'
dim oNull,m,p
set oNull = GetPrim("Null")
'
' Mark sclx, roty, and posz, then key the marked 
' parameters at the current frame
'
SetMarking "kine.local.sclx,kine.local.roty,kine.local.posz"
SaveKey
'
' Log the parameters that are marked (we prepend the 
' name of oNull to make the output easier to compare, 
' and because we know we only marked oNull's parameters).
'
for each m in GetMarking()
        logmessage oNull & "." & m & " is marked"
next
'
' Use the X3DObject.NodeAnimatedParameters property to 
' log the null's animated parameters.
'
for each p in oNull.NodeAnimatedParameters( siAnySource )
        logmessage p.FullName & " is animated"
next 
' Results of running this script:
'INFO : "null.kine.local.sclx is marked"
'INFO : "null.kine.local.roty is marked"
'INFO : "null.kine.local.posz is marked"
'INFO : "null.kine.local.posz is animated"
'INFO : "null.kine.local.roty is animated"
'INFO : "null.kine.local.sclx is animated"