| |
確かに64bit版ではそういうエラーが出てしまうようです。
MSScriptControl.ScriptControlというオブジェクトは、64bit版は無いためのよ
うです。
スクリプトはwscript.exeではなく、hmfilerclassic.exeの上で動いているので、
32bit版のwscript.exeを呼ぶといったようなことはできません。
このオブジェクトはvbsのMsgBoxを使うためだけの目的のようで、Messageと
Questionメソッドに置き換えてやるとなんとかなるのではないかと思います。
以下は修正例です。
//var vbCL = "\" & vbCrLf & \"";
//var vbCL2 = "\" & vbCrLf & vbCrLf & \"";
var vbCL = "\n";
var vbCL2 = "\n\n";
//----------------------------------------------------------------------
//var objMSSC = new ActiveXObject( "MSScriptControl.ScriptControl" );
//objMSSC.Language = "vbscript";
function MsgBox( strPrompt, intButtons ) {
if( (intButtons & 0x07) == vbRetryCancel ) {
if(Question( strPrompt )!=0){
return vbRetry;
}
return vbCancel;
} else if( (intButtons & 0x07) == vbRetryCancel ) {
if(Question( strPrompt )!=0){
return vbYes;
}
return vbNo;
}
Message( strPrompt );
return vbOK;
//objMSSC.addCode( "function vbFunc() vbFunc = MsgBox(\"" +
// strPrompt + "\",\"" + intButtons +
// "\",\"Script : RenameFiles2\" ) end function" );
//return objMSSC.eval( "vbFunc" );
}
|
|