Public Function CheckVBScriptEnabled()

On Error Resume Next

	CheckVBScriptEnabled = "VBScriptEnabled"

End Function

Public Function ActiveXControlEnabled(in_strClassID)

On Error Resume Next
	msgbox 'yo!'
	ActiveXControlEnabled = IsObject(CreateObject(in_strClassID))

End Function