TPTP設定自動化スクリプト

Test & Performance Tools Platform Project Downloads

TPTPにall-in-oneなるパッケージがあったのでインストールしてみた

設定がわずらわしいのでvbsスクリプトで自動化
Agent Controllerはeclipseフォルダに入れたパスなので適度に修正してください

' TPTP設定自動化スクリプト

Dim objShell, objFso, ret

Set objShell = WScript.CreateObject("WScript.Shell")
Set objFso = WScript.CreateObject("Scripting.FileSystemObject")

' RASERVER_HOME確認
ret = objShell.Popup("環境変数RASERVER_HOMEを設定します",,,vbOKCancel+vbQuestion)
Select Case ret
Case vbCancel
WScript.Quit(0)
End Select

' RASERVER_HOME変更
objShell.Environment.Item("RASERVER_HOME") = objFso.GetFolder(".\agntctrl.win_ia32")

' PATH確認
ret = objShell.Popup("環境変数PATHを設定します",,,vbOKCancel+vbQuestion)
Select Case ret
Case vbCancel
WScript.Quit(0)
End Select

' PATH変更
objShell.Environment.Item("PATH") = objShell.ExpandEnvironmentStrings("%PATH%") & ";" & objFso.GetFolder(".\agntctrl.win_ia32\bin")

' SetConfig実行確認
ret = objShell.Popup("設定ファイルを生成します",,,vbOKCancel+vbQuestion)
Select Case ret
Case vbCancel
WScript.Quit(0)
End Select

' SetConfig実行
objShell.CurrentDirectory = ".\agntctrl.win_ia32\bin"
Call objShell.Run("SetConfig.bat")
objShell.CurrentDirectory = "..\..\"


' サービス登録確認
ret = objShell.Popup("エージェントコントローラをWindowsサービスへ登録します",,,vbOKCancel+vbQuestion)
Select Case ret
Case vbCancel
WScript.Quit(0)
End Select

' サービス登録
objShell.CurrentDirectory = ".\agntctrl.win_ia32\bin"
Call objShell.Run("manageservice.exe add ""TPTP Agent Controller"" " & objFso.GetFolder("..\"))
objShell.CurrentDirectory = "..\..\"

' TPTP解除自動化スクリプト

Dim objShell
Set objShell = WScript.CreateObject("WScript.Shell")

' サービス解除
Call objShell.Run(".\agntctrl.win_ia32\bin\manageservice remove ""TPTP Agent Controller""")