質問編集履歴

2 誤字

dera

dera score 14

2018/06/11 14:41  投稿

【Vbscript】標準出力について
お世話になります。
Visual Studio 2017 のInstaller Projectを使って
セットアッププロジェクトを作成しています。
VBscriptでExecの実行結果を出力したいです。
StdOutを使って出力しようと思ったのですが、
何も表示されません。
ちなみに、このvbsはコミットが終わった時点で発動されるよう
カスタム動作を設定しています。
```vbscript
Option Explicit
Dim objWshShell   
Dim installPath   
Dim exe       
Dim setPath       
Dim oExec         
Set objWshShell = CreateObject("WScript.Shell")
installPath = Session.Property("CustomActionData")
exeName = "test.exe"
exe = "test.exe"
setPath = "schtasks /create /tn testTask /tr " & installPath & exe & space(1) & " /sc minute /mo 10 "
Set oExec = objWshShell.Exec(setPath)
Do Until oExec.StdOut.AtEndOfStream
   Wscript.Echo oExec.StdOut.ReadLine
Loop
Set objWshShell = Nothing
```
試したことは、Wsctipt.Echoの部分をMsgBoxでも試したくらいです。
標準出力の使い方、間違っていますでしょうか?
ご教示願います。
  • VBScript

    292 questions

    VBScript(Visual Basic Scripting Edition)はMicrosftが開発したスクリプト言語であり、Visual Basicのサブセットです。

1 誤字

dera

dera score 14

2018/06/11 14:30  投稿

【Vbscript】標準出力について
お世話になります。
Visual Studio 2017 のInstaller Projectを使って
セットアッププロジェクトを作成しています。
VBscriptでExecの実行結果を出力したいです。
StdOutを使って出力しようと思ったのですが、
何も表示されません。
ちなみに、このvbsはコミットが終わった時点で発動されるよう
カスタム動作を設定しています。
```vbscript
Option Explicit
Dim objWshShell   
Dim installPath   
Dim exe       
Dim setPath       
Dim oExec         
Set objWshShell = CreateObject("WScript.Shell")
installPath = Session.Property("CustomActionData")
exeName = "test.exe"
setPath = "schtasks /create /tn testTask /tr " & installPath & exeName & space(1) & " /sc minute /mo 10 "
setPath = "schtasks /create /tn testTask /tr " & installPath & exe & space(1) & " /sc minute /mo 10 "
Set oExec = objWshShell.Exec(setPath)
Do Until oExec.StdOut.AtEndOfStream
   Wscript.Echo oExec.StdOut.ReadLine
Loop
Set objWshShell = Nothing
```
試したことは、Wsctipt.Echoの部分をMsgBoxでも試したくらいです。
標準出力の使い方、間違っていますでしょうか?
ご教示願います。
  • VBScript

    292 questions

    VBScript(Visual Basic Scripting Edition)はMicrosftが開発したスクリプト言語であり、Visual Basicのサブセットです。

思考するエンジニアのためのQ&Aサイト「teratail」について詳しく知る