*[PPx]スクリプトメモ 続・Alcohol 52% アンマウント(改)

Windows10だからかSPTD 2.xだからなのか・・・
イメージファイルのアンマウントに支障が出るようになったAxCmd.exe
http://d.hatena.ne.jp/nakapon/20160416
Alcohol Softには連絡したがいつ対応されるか、そもそも
対応してくれるのか不明な状態

他の方法で回避できないかといろいろと試したわけだが
どうにか外部ツールの使用で解決した。
使用するのはvectorで見つけたEjctClse.exe。
EjctClse.exeはドライブレター指定方式。一方スクリプトは
ドライブ番号指定のため、ドライブレター取得のためだけに
WMPlayer.OCXを使っている。
スクリプトをドライブレター指定に変更すると言う手も
考えたが、ドライブレターは簡単に変更できてしまうため
今まで通りドライブ番号指定で動かすことにした。
なおEjctClse Ver1.540はドライブ指定を""で囲まないと
メニューが表示されてしまう
#作者さんには連絡済み

//!*script
// Alcohol 52%アンマウントルーチン Ver 3.0
// 引数1:アンマウント対象ドライブ番号
// 使用外部プログラム:C:\Program Files (x86)\EjctClse\EjctClse.exe
// ============================================================
//^変数宣言
var command	= '';	// PPxコマンドワーク
var WSHObj	= '';	// wshシェル
var WMPObj	= '';	// OCX
var Drives	= '';	// ドライブコレクション
var dLetter	= '';	// 処理対象ドライブレター
var RetCD	= '';	// 戻り値

// ドライブレター取得
WMPObj	= new ActiveXObject('WMPlayer.OCX');
Drives	= WMPObj.cdromCollection;
dLetter	= Drives.Item(PPx.Arguments.Item(0)).driveSpecifier;
WMPObj = '';
Drives = '';
//PPx.Echo(dLetter);

// アンマウント処理(EjctClse)
WSHObj	= new ActiveXObject('WScript.Shell');
command = '"C:\\Program Files (x86)\\EjctClse\\EjctClse.exe"'
        + ' "' + dLetter + '" /X';
//PPx.Echo(command);
RetCD   = WSHObj.run(command,0,true);
//PPx.Echo(RetCD);

// 終了処理
WSHObj = '';
PPx.Quit();