'ファイルメーカーサーバーサービス再起動スクリプト

'ファイルメーカーサーバーサービス停止
Set ServiceSet = GetObject("winmgmts:").ExecQuery("select * from Win32_Service where Name='FileMaker Server'")
for each Service in ServiceSet
	RetVal = Service.StopService()
next

'3分間スクリプトを実行しない
WScript.Sleep 180000


'ファイルメーカーサーバーサービス起動
Set ServiceSet = GetObject("winmgmts:").ExecQuery("select * from Win32_Service where Name='FileMaker Server'")
for each Service in ServiceSet
	RetVal = Service.StartService()
        RetVal = Service.ChangeStartMode("Auto")

Next