ServiceChange ( ServiceInfoName )
' JP1/Script サービスの設定情報(サービスの起動時期)を変更する。
Dim svStart
ServiceSetValue ( "JSService" ,Name::"JP1_Script" )
ServiceQuery ( "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