9.5.11 ServiceReferサービスの現在の状態を取得する

機能
サービスの現在の状態を取得します。
形式

ServiceRefer ( ServiceInfoName , StatusBuff )

指定項目
ServiceInfoName
サービス情報名を文字列,または値を格納した変数名で指定します。
StatusBuff
現在の状態を受け取る変数名を指定します。
この変数に格納される値は次のどれかになります。
意味
SERVICE_STOPPEDサービスは実行中ではありません。
SERVICE_START_PENDINGサービスは起動中です。
SERVICE_STOP_PENDINGサービスは停止中です。
SERVICE_RUNNINGサービスは実行中です。
SERVICE_CONTINUE_PENDINGサービスの再開は未処理です。
SERVICE_PAUSE_PENDINGサービスの一時停止は未処理です。
SERVICE_PAUSEDサービスは一時停止されています。
説明
現在のサービスの状態を取得し,結果を変数に格納します。
状態を取得するサービスのサービス名をあらかじめサービス情報のキーワードNameに設定しておく必要があります。
コマンドの実行結果は,_SVC_RTN_予約変数に格納します。コマンドの実行が成功した場合は真(True)を,それ以外の場合は偽(False)を返します。

' JP1/Script サービスの現在の状態を取得し,サービスを開始する。
Dim  svStatus
ServiceSetValue ( "JSService" ,Name::"JP1_Script" )
ServiceRefer ("JSService" ,svStatus )
If  svStatus = SERVICE_STOPPED  Then
 ServiceStart ( "JSService" )
End

対象バージョン
JP1/Script 01-00以降