投稿2019/10/01 09:18
編集2019/10/01 09:23Windows7で動いていた以下プログラムをWindows10上で動作させたいです。
どなたかお解りになる方、ご教示頂きたいです。よろしくお願いいたします。
IE11のグループウェアのプラグインで、PerlのCgiからVbscriptを実行して
Excelをダウンロードする。
（VbsからExcelVBAを呼び出し、パラメータCSVに罫線等加工して出力）
Perl5（変更なし）
Excel 97 ⇒ Excel 2019
IE11（変更なし、但しブラウザは変更可能）
Vbscriptが実行されず、待機中のまま応答が帰らない。
localhostの待機中...
Perl
1if ($#key_list > -1){ 2 &make_file; ←ここでcsvファイルを作成して出力しているが、問題なく出力される。 3 &download_x; 4} 5 6sub download_x { 7 system("XXX.vbs $tempname"); ←makeファイルで作成したcsvを$tempnameにパラメータとして渡す 8 my $filename = "$tempname.xls"; 9 print qq|Content-type: application/vnd.ms-excel\n|; 10 print qq|Content-Disposition: attachment; filename="$filename"\n\n|; 11 open FILE,"$filename"; 12 while(<FILE>){ 13 print; 14 } 15 close FILE; 16}
######1.サブルーチン内の指定を変更。
Perl
1（変更前） 2sub download_x { 3 system("XXX.vbs $tempname"); 4 my $filename = "$tempname.xls"; 5 print "Content-Type: application/download\n"; 6 print "Content-Disposition: attachment; filename=\"$filename\"\n\n"; 7 open (FILE, "< $filename"); 8 binmode FILE; 9 binmode STDOUT; 10 print while (<FILE>); 11 close(FILE); 12}
######2.vbsの内容を単純なものに修正。
Vbscript
1#XXX.vbsの内容 2MsgBox "今日の昼食は外食でもいいですか？"
######3.vbsの呼び出し文を修正。
perl
1system "XXX.vbs"; 2exec "XXX.vbs"; 3'XXX.vbs';
######4.IE11の設定を追加
######5.ドキュメントモードの追加
<meta http-equiv="X-UA-Compatible" content="IE=11">
特になし。
回答2件
0
ベストアンサー
色々疑わしいところがありますので回答しますが、これで解決できるとは限らないので、参考程度のものです。
こちらで Windows 10 + apache24 ＋ perl5 + VBスクリプト(*.vba)でCGIを試したところでは、VBスクリプトは動きました。もちろん質問者さんと環境の細かい部分で色々違うでしょうが、「VBスクリプトが動かない」のではなく、「VBスクリプトは動いているんだけど、所定の結果を出力できていない」のではないかと考えています。
試されたことで、「2.vbsの内容を単純なものに修正。MsgBox "今日の昼食は外食でもいいですか？"」がありましたが、Windowsサービス下で動作しているapacheのCGIですと、普通はデスクトップ画面が使えません。ですので、メッセージボックスが出るものの受け取れない入力を待ったままになっていたのではないでしょうか。(つまり、VBスクリプト自体は動作している)
VBスクリプトの実行はperl5スクリプト中でsystem("XXX.vbs $tempname");としているので、もしこのXXX.vbsの中でエラーが起きてエラーのメッセージがポップアップしていたとしたら、そこで停まります。apacheでCGIの実行にタイムアウトを設けていなかった場合は「Vbscriptが実行されず、待機中のまま応答が帰らない。」状態に見えるはずです。
まず、VBスクリプト自体は確実に実行されているか再度確認してください。例えば以下のような、確実にファイルを出力するだけのもので。
これで、とにかくVBスクリプトのエンジンは動作しているか否かはっきりするはずです。
VBScript
1Option Explicit 2 3Dim fs 4Set fs = WScript.CreateObject("Scripting.FileSystemObject") 5 6' 絶対に保存できるディレクトリを指定すること 7Dim file 8Set file = fs.OpenTextFile("C:\TEMP\OUT.txt", 8, True) 9file.WriteLine("TEST: " & Time) 10
ファイルが出力されていない、つまりVBスクリプトが実行されていないのであれば、*.vbs ファイルが拡張子で関連付けされていない可能性があります。
本来assoc コマンドや ftypeコマンドで確認できますが、コマンドプロンプト上で実行してもapache+CGI実行時の環境とは違うので、やや不安です。
(Windowsサービスのアカウントで動作しているはず)
*.vbsファイルをダブルクリックしたときは、関連付けによりWScript.exe と言うWindows Scripting Hostエンジンが使われます。これだともしVBスクリプトの中でエラーが起きると、エラーメッセージがポップアップしてしまいます。CGIからでは問題あるはずで、そんな場合はコマンドライン版の CScript.exe を代わりに使用します。これを使えばエラーが起きてもポップアップせず、標準出力に出ます。
C:\Windows\System32\CScript.exeがそれです。"/B"オプションを指定してください。実行したいVBスクリプトファイルが C:\apache\cgi-bin\hoge.vbs なら、
コマンドプロンプト上での指定は以下のようになるので、
CMD
1C> C:\Windows\System32\CScript.exe C:\apache\cgi-bin\hoge.vbs
CGIのPerl5コードの呼び出し部分は以下のようになるでしょう。
Perl5
1system('C:\Windows\System32\CScript.exe /B C:\apache\cgi-bin\hoge.vbs'); 2exit 0;
これでとにもかくにもVBスクリプトが実行されたら、Excel2019を操作するVBスクリプトに差し替えて試してください。なんかここでエラーが起きる気がします。
ExcelはじめOffice製品はクライアント製品であり、ユーザーアカウントごとのフォルダーやファイル、プロファイルが必要になることがあると思います。
Windowsサービスで動作しているときのapache2は通常のユーザーではないので、Officeに関連するプロファイル情報を持っていないかもしれません。ここでエラーが起きているのであるとすると、既存のWindows 7ではOKで、新しく導入したWindows 10 + Excel2019ではNG、と言う事象に合致します。
が、それはこの回答とはまた別に解決する問題になりますので、述べません。（私が解決し得る分野の問題かも分かりません）
あと、CGI実行時のエラーは逐一、apache2のエラーログに出力されます。それらを確認すると大きなヒントになるはずです。WindowsサービスのアカウントでCGIを実行しないよう、CGI用に別のユーザーアカウントの指定などがされているかもしれないので、その辺の差異も注意してみてください。
投稿2019/10/04 09:19
編集2019/10/04 09:34総合スコア9256
0
perl
1sub download_x { 2 print qq|Content-type: text/plain\n\ntest.|; 3}
あたりが思いつきますがどうでしょうか。
投稿2019/10/01 16:59
総合スコア123
あなたの回答
tips
プレビュー
Q&A
