'Copyright (C) 2006 NTT DATA Corporation.

'This program is free software; you can redistribute it and/or
'Modify it under the terms of the GNU General Public License
'as published by the Free Software Foundation, version 2.
'
'This program is distributed in the hope that it will be useful,
'but WITHOUT ANY WARRANTY; without even the implied warranty of
'MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'GNU General Public License for more details


Dim objWshShell       ' WshShell オブジェクト
Dim objExecCmd        ' 実行コマンド情報
Dim strAgentHome      ' Hinemosエージェントのホームフォルダ
Dim strCmdLine        ' 実行するコマンド
Dim strMsg            ' メッセージの確認
Dim regEx             ' 文字列置換用のオブジェクト

' Shellオブジェクトの生成
Set objWshShell = WScript.CreateObject("WScript.Shell")

' カレントフォルダを取得
strAgentHome = objWshShell.CurrentDirectory

' 文字列置換用オブジェクトの作成
Set regEx = New RegExp

' 文字列全体を検索するように指定
regEx.Global = True 

' Hinemosエージェントのホームフォルダのパスを取得
regEx.Pattern = "\\bin"
strAgentHome = regEx.Replace(strAgentHome, "")

' 実行コマンドを指定
strCmdLine = strAgentHome & "\jre-1.5.0\bin\javaw -cp " & strAgentHome & "\lib\agent;" & strAgentHome & "\lib\agent\agent.jar;" & strAgentHome & "\lib\commons-logging.jar;" & strAgentHome & "\lib\jbossall-client.jar;" & strAgentHome &"\lib\log4j.jar;" & strAgentHome & "\lib\JobManagementEJB.jar;" & strAgentHome & "\lib\RepositoryEJB.jar;" &  strAgentHome & "\lib\clustercontrol.jar com.clustercontrol.agent.Agent   " & strAgentHome & "\lib\agent\Agent.properties"

' Hinemosエージェントの起動
objWshShell.Exec(strCmdLine)
If Err.Number = 0 Then
    strTmp = MsgBox ("Hinemosエージェントを起動しました", vbInformation, "Hinemosエージェントのインストール")
Else
    strTmp = MsgBox ("Hinemosエージェントを起動できませんでした", vbInformation, "Hinemosエージェントのインストール")
End If

Set regEx = Nothing
Set objExecCmd = Nothing
Set objWshShell = Nothing
