+var X_Script_VBS_ENABLED = X_UA[ 'Windows' ] && !X_UA[ 'WinCE' ] && !X_UA[ 'WinPhone' ] && X_UA[ 'IE' ] < 11;\r
+\r
+/**\r
+ * js バージョン間の際を吸収\r
+ * @namespace X.Script\r
+ * @alias X.Script\r
+ * @type {object}\r
+ */\r
+X[ 'Script' ] = {\r
+ 'try' : X_Script_try\r
+};\r
+\r
+if( X_UA[ 'IE' ] < 9 && X_Script_VBS_ENABLED ){\r
+ (function( lines ){\r
+ var s = document.createElement( 'script' );\r
+ document.getElementsByTagName("head")[ 0 ].appendChild( s );\r
+ s.type = 'text/vbscript';\r
+ s.text = lines.join( '\n' );\r
+ \r
+ })( [\r
+ 'Function vba_createAXO(v)',\r
+ 'On Error Resume Next',\r
+ 'Set ax = CreateObject(v)',\r
+ 'If Err.Number Then',\r
+ 'ax = 1',\r
+ 'End If',\r
+ 'Err.Clear',\r
+ 'vba_createAXO = ax',\r
+ 'End Function' /*,\r
+ \r
+ 'Function vba_try(jsFunc,a1,a2,a3,a4)',\r
+ 'On Error Resume Next',\r
+ 'Dim rs = jsFunc(a1,a2,a3,a4)',\r
+ 'If Err.Number != 0 Then',\r
+ 'rs = 0',\r
+ 'End If',\r
+ 'Err.Clear',\r
+ 'vba_try = rs',\r
+ 'End Function' */\r
+ ] );\r
+ \r
+ // TODO Object のメンバを辿る vba\r
+};\r
+\r
+function X_Script_try( func, args ){\r
+\r
+ if( X_UA[ 'IE' ] < 5.5 ){\r
+ \r
+ } else {\r
+ return ( new Function( 'f,a', 'try{return f.apply({},a)}catch(e){}' ) )( func, args || [] );\r
+ };\r
+};\r
+\r
+function X_Script_createActiveXObjectSafty( name ){\r
+ if( X_UA[ 'IE' ] < 9 ){\r
+ if( X_Script_VBS_ENABLED ){\r
+ return window[ 'vba_createAXO' ]( name ) ? null : X_Script_createActiveXObject( name );\r
+ };\r
+ return X_Script_createActiveXObject( name );\r
+ } else {\r
+ return X_Script_try( X_Script_createActiveXObject, [ name ] );\r
+ };\r
+};\r
+\r
+function X_Script_createActiveXObject( name ){\r
+ return new ActiveXObject( name );\r
+};\r
+\r