ServiceChange ( ServiceInfoName )
' JP1/Script サービスの設定情報(スタートアップの種類)を変更する。
Dim svStart
' JP1/Script サービス情報"JSService"を設定する。
ServiceSetValue ( "JSService" ,Name::"JP1_Script" )
' サービス情報"JSService"の設定情報を取得する。
ServiceQuery ( "JSService" )
' サービス情報"JSService"に格納されている
' 設定情報(スタートアップの種類)を変数に取得する。
ServiceGetValue ( "JSService" ,Start::svStart )
' サービスの「スタートアップの種類」が「自動」の場合,
' 「手動」に変更する
If svStart = 3 Or svStart = SERVICE_AUTO_START Then
svStart = SERVICE_DEMAND_START
ServiceSetValue ( "JSService" ,Start::svStart )
ServiceChange ( "JSService" )
End