その他の ActiveXObject 処理

ユーザ名を表示する

<HTML>
<HEAD><TITLE>Excel Sample</TITLE>
<SCRIPT LANGUAGE=JavaScript>

function DspUser()
{

	var WshNetwork;

	WshNetwork = new ActiveXObject("WScript.Network");

	alert( WshNetwork.UserName );


}

</SCRIPT>
</HEAD>

<BODY style="background-color:#3A6DA5">

<INPUT type=button value="ユーザ名の表示" onClick="DspUser()" style='position:absolute;left:50;top:70'>

</BODY>
</HTML>

<SCRIPT LANGUAGE=JavaScript>
// ******************************************************************
// 
// ******************************************************************
function errortrap(msg,url,line){

	alert( msg + "/" + url + ":" + line );
	return true;;

}
onerror=errortrap;
</SCRIPT>

外部プログラムの実行

<HTML>
<HEAD><TITLE>Excel Sample</TITLE>
<SCRIPT LANGUAGE=JavaScript>

function DoProgram()
{

	var WshShell;

	WshShell = new ActiveXObject("WScript.Shell");

	WshShell.Run( document.all.item( "CommandText" ).value );

	WshShell = "";

}

</SCRIPT>
</HEAD>

<BODY style="background-color:#3A6DA5">

<DIV style='position:absolute;left:50;top:20;font-family:IMPACT;font-size:30'>Execute Program</DIV>
<DIV style='position:absolute;left:50;top:70'>ファイル名をフルパスで指定しても良いです</DIV>
<INPUT type=text name=CommandText size=100 style='position:absolute;left:50;top:100'>
<INPUT type=button value="実行" onClick="DoProgram()" style='position:absolute;left:50;top:150'>

</BODY>
</HTML>

<SCRIPT LANGUAGE=JavaScript>
// ******************************************************************
// 
// ******************************************************************
function errortrap(msg,url,line){

	alert( msg + "/" + url + ":" + line );
	return true;;

}
onerror=errortrap;
</SCRIPT>