VBScriptを使用した対話ダイアログ

Question

VBScriptを使用して実行されるSOAPUIを使用する自動テストプログラムがあります。しかし、私がテストプログラムを実行するたびに、「SOAPUIを改善するために使用統計を送信するのを手伝いたいですか？」というような質問をするSOAPUIダイアログボックスが開きます。私は手動で「いいえ」をクリックして、テストプログラムは実行し続けます。

自動テストプログラムの実行時にこのダイアログボックスが表示されないようにする方法がありますか？ VBScriptコードは以下のとおりです。

Option Explicit 

Dim RootFolder, ExecFolder, Command, FSO, Shell 

Set FSO = CreateObject("Scripting.FileSystemObject") 
Set Shell = CreateObject("WScript.Shell") 

RootFolder = FSO.GetParentFolderName(FSO.GetParentFolderName(WScript.ScriptFullName)) 
ExecFolder = FSO.GetParentFolderName(WScript.ScriptFullName) 

On Error Resume Next 

'Clean previous log files 
Call FSO.DeleteFile(ExecFolder & "\*.txt", True) 
Call FSO.DeleteFile(RootFolder & "\Test\*.txt", True) 
Call FSO.DeleteFile(ExecFolder & "\*.log", True) 

'Execute 
Command = Chr(34) & RootFolder & "\SoapUI\bin\testrunner.bat" & Chr(34) & " " & _ 
      Chr(34) & RootFolder & "\Test\Expando.xml" & Chr(34) 

Shell.CurrentDirectory = ExecFolder 
Call Shell.Run(Command, 1, True) 

Answer 1

私はこの問題をSendKeysを使用して解決しました。

OPTION EXPLICIT 

Dim RootFolder, ExecFolder, Command, FSO, Shell 

Set FSO = CreateObject("Scripting.FileSystemObject") 
Set Shell = CreateObject("WScript.Shell") 

RootFolder = FSO.GetParentFolderName(FSO.GetParentFolderName(Wscript.ScriptFullName)) 
ExecFolder = FSO.GetParentFolderName(Wscript.ScriptFullName) 

On Error Resume Next 

'Clean previous log files 
Call FSO.DeleteFile(ExecFolder & "\*.txt", True) 
Call FSO.DeleteFile(RootFolder & "\Test\*.txt", True) 
Call FSO.DeleteFile(ExecFolder & "\*.log", True) 

'Execute 
Command = Chr(34) & RootFolder & "\SoapUI\bin\testrunner.bat" & Chr(34) & " " & Chr(34) & RootFolder & "\Test\Expando.xml" & Chr(34) 

Shell.CurrentDirectory = ExecFolder 
Call Shell.Run(Command, 1, False) 
WScript.Sleep(20000) 
Shell.SendKeys("~")