<% '実行操作判断 Select Case Request.Form("action") Case "動作確認を実行する" strCmd = "getstate" Case "起動処理を実行する" strCmd = "start soft" Case "停止処理を実行する" strCmd = "stop soft" Case "再起動処理を実行する" strCmd = "reset soft" End Select 'Response.write Session.Contents("hostname") 'VMサーバー情報設定ファイル Const FileName = "C:\Inetpub\htdocs\lhs-mail\lhsmail-1.hosting-link.ne.jp\info.txt" 'VM実行状態TMPファイル Const TmpStat = "C:\Inetpub\htdocs\lhs-mail\status.tmp" 'VMサーバーのIPを読み取り Set objFS = CreateObject("Scripting.FileSystemObject") Set objTS = objFS.OpenTextFile(FileName) Do Until objTS.atEndOfStream strVmware = objTS.ReadLine Loop Set objFS = Nothing 'VMサーバーのコマンドを実行 Set objShell = Server.CreateObject("WScript.Shell") intFlag = objShell.Run ("cmd.exe /c " & "C:\Progra~1\VMware\VMware~2\Perl\bin\perl.exe C:\Progra~1\VMware\VMware~2\bin\vmware-cmd.pl" & " --server " & strVmware & " --username root --password kaiG1024 /vmfs/volumes/datastore1/" & Session.Contents("hostname") & "/" & Session.Contents("hostname") & ".vmx " & strCmd & " > " & TmpStat ,0 ,True) '戻る値 0:成功　1:失敗 if intFlag = 0 then 'LOGへサーバー情報を読み取り Set objFS = CreateObject("Scripting.FileSystemObject") Set objTS = objFS.OpenTextFile(TmpStat) strLog = objTS.ReadLine Set objFS = Nothing 'VMサーバーのOS状態を判断 Select Case strLog Case "getstate() = on" strStatus = "起動中" Case "getstate() = off" strStatus = "停止中" Case "start() = 1" strStatus = "起動処理が実行されました" Case "stop() = 1" strStatus = "停止処理が実行されました" Case "reset() = 1" strStatus = "再起動処理が実行されました" Case "" strStatus = "操作実行されません" End Select response.write "" & Session.Contents("hostname") & "：" & strStatus & "" else '実行失敗情報表示 response.write "「" & Request.Form("action") & "」操作失敗" end if Set objShell = Nothing %>