execScript の利用

目次

ローカルファイルを実行
Web 上のファイルを実行

ローカルファイルを実行

C:\TEMP\vbs.txt

REM *********************************************************
REM execScript のテスト
REM *********************************************************

Dim Shell,objFolder

Do
	if IsEmpty( Shell ) then
		Set Shell = CreateObject( "Shell.Application" )
		alert( "Shell.Application を作成しました" )
	end if

	Set objFolder = Shell.BrowseForFolder( 0, "フォルダ選択", 0, 0 )
	if not objFolder is nothing then
		alert( objFolder.Items().Item().Path )
		Set objFolder = nothing
	end if

Loop Until True

● コメントには REM を使用する
● こちら側で定義された変数もグローバル変数となるが、2度目の実行で二重定義にはならない
● 途中終了可能なように、Do ～ Loop Until True を使用する

execVbs.htm ( 存在するサイトで ActiveX の実行が無条件許可されている必要があります )

<SCRIPT language=VBScript>

Dim Fs

'***********************************************************
' execScript のテスト
'***********************************************************
function ExecVbs()

	if IsEmpty( Fs ) then
		Set Fs = CreateObject( "Scripting.FileSystemObject" )
	end if

	Dim Fp,strVbs

	Set Fp = Fs.OpenTextFile( "C:\TEMP\vbs.txt", 1 )
	strVbs = Fp.ReadAll
	Call Fp.Close()

	Call window.execScript( strVbs, "VBScript" )

	alert( TypeName(Shell) & "|" & TypeName(objFolder) )

end function

</SCRIPT>

<HTML>
<HEAD>
<META http-equiv="Content-Type" content="text/html; CHARSET=Shift_JIS">
</HEAD>
<BODY>
<INPUT
	type=button
	value="実行"
	onClick='Call ExecVbs()'
>
</BODY>
</HTML>

Web 上のファイルを実行

vbs.txt に仮想パスを割り当てて、Msxml2.XMLHTTP を使用してコードを取得します
( サーバーの場合は Msxml2.ServerXMLHTTP )

responseText の場合は Shift_JIS が文字化けするので、responseBody でバイト配列(バイナリ)として
取得し、簡単な変換アルゴリズムで変換します。但し、以下の例では Shift_JIS を前提としているので、それ以外
のキャラクタセットの場合は ADODB.Stream でShift_JIS に変換してから使います