VBSでﾀｽｸｽｹｼﾞｭｰﾗ登録をしたいです｡手動での登録は想定していません｡環境はWindows7pro 64bit/32bit混在です｡実行間隔：毎日実行時間：01：00 実行ﾌﾟﾛｸﾞﾗﾑ…

人力検索はてな

ﾓﾊﾞｲﾙ版を表示しています｡PC版はこちら

VBSでﾀｽｸｽｹｼﾞｭｰﾗ登録をしたいです｡手動での登録は想定していません｡
環境はWindows7pro 64bit/32bit混在です｡

実行間隔：毎日
実行時間：01：00
実行ﾌﾟﾛｸﾞﾗﾑは､C:\Temp\***.vbs

良い回答には300?500ptお支払いします｡

●質問者: japan-nan
●ｶﾃｺﾞﾘ:ｺﾝﾋﾟｭｰﾀ学習･教育
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

▽1 ● atachibana
●500ﾎﾟｲﾝﾄ

ﾀｽｸの有効期間を10年にしています｡


Set service = CreateObject("Schedule.Service")
call service.Connect()

Set rootFolder = service.GetFolder("\")

Set taskDefinition = service.NewTask(0) 

Set regInfo = taskDefinition.RegistrationInfo
regInfo.Description = "毎日 01:00 に VBS を実行"
regInfo.Author = "japan-nan"

Set settings = taskDefinition.Settings
settings.Enabled = True
settings.StartWhenAvailable = True
settings.Hidden = False

Set triggers = taskDefinition.Triggers

Set trigger = triggers.Create( 2 )
trigger.StartBoundary = "2015-08-08T01:00:00"
trigger.EndBoundary = "2025-08-08T01:00:00"
trigger.DaysInterval = 1
trigger.Id = "DailyTriggerId"
trigger.Enabled = True

Set Action = taskDefinition.Actions.Create( 0 )
Action.Path = "C:\Temp\test1.vbs"

call rootFolder.RegisterTaskDefinition("Daily VBS Task", taskDefinition, 6, , , 3)

japan-nanさんのｺﾒﾝﾄ
私の環境のせいでしょうか｡ｴﾗｰは吐かないのですが登録されていませんでした｡こちらのｺｰﾄﾞで検証を続けます｡

atachibanaさんのｺﾒﾝﾄ
こちらも Windows 7 Pro 64bit です｡何が違うのでしょうね｡検証手順を考えました｡ 1) ﾀｽｸｽｹｼﾞｭｰﾗを開き､左側のｳｨﾝﾄﾞｳで｢ﾀｽｸｽｹｼﾞｭｰﾗ(ﾛｰｶﾙ)｣-｢ﾀｽｸｽｹｼﾞｭｰﾗﾗｲﾌﾞﾗﾘ｣をｸﾘｯｸします｡ -> 画面右側に既存のﾀｽｸが表示されます｡ 2) 次のﾌﾟﾛｸﾞﾗﾑを test.vbs に保存し､実行する｡ --- ここから --- Set service = CreateObject("Schedule.Service") call service.Connect() Set rootFolder = service.GetFolder("\") Set taskDefinition = service.NewTask(0) Set Action = taskDefinition.Actions.Create( 0 ) Action.Path = "C:\Temp\test1.vbs" call rootFolder.RegisterTaskDefinition("Daily VBS Task", taskDefinition, 6, , , 3) --- ここまで --- 3) ﾀｽｸｽｹｼﾞｭｰﾗで F5 を押し､更新する｡ 4) ﾀｽｸの中に｢Daily VBS Task｣があることを確認する｡いかがでしょうか?