Get the oculus device type.
fun [ObjOculus] I
Return : I 0 none, 3 DK1, 4 DKHD, 6 DK2 or NIL if an error occurs.