VBscriptでタスクスケジューラからタスクを削除したい

Question

お世話になります。

VBscriptでタスクスケジューラに登録した
タスクを削除したいです。
現在のコードは下記の通りです。

Option Explicit
On Error Resume Next

Dim objWshShell     ' WshShell オブジェクト
Dim delCmd        '削除用コマンド

Set objWshShell = CreateObject("WScript.Shell")

delCmd = "schtasks /delete /tn サービス名"

'タスクスケジューラから削除
objWshShell.Exec(delCmd)

'オブジェクトの破棄
Set objWshShell = Nothing

これを実行しましたが、消えませんでした。
何がいけないのでしょうか・・。
ご教示いただければと思います。

よろしくお願いいたします。

Comments

[alg]

`objWshShell.Exec(delCmd)` の戻り値はどうなっていますか？（特にExitCodeプロパティ）参考：http://www.atmarkit.co.jp/ait/articles/0407/08/news101_3.html

[dera]

ありがとうございます。参考にさせていただきます。

Answer 1

まず、まともに動いてないのに、On Error Resume Nextを付けてはいけません。

schtasks /deleteは、警告: タスク ～～ を削除しますか (Y/N) ?に対してYを応答する必要があります。実行しっぱなしでは、入力待ちで止まってしまうので駄目です。
しかし、応答しても何故か「エラー: 入力が無効です」というエラーになってしまいますので、/Fを付けるしか無さそうです。

Option Explicit

Dim Shell, delCmd, Exec

Set Shell = CreateObject("WScript.Shell")

'delCmd = "cmd /c echo Y|schtasks /delete /tn タスク名" ・・・・うまくいかない
delCmd = "schtasks /delete /f /tn タスク名"

Set Exec = Shell.Exec(delCmd)

Do Until Exec.StdOut.AtEndOfStream
    WScript.Stdout.Write Exec.StdOut.ReadAll
    WScript.Sleep 100
Loop
Do Until Exec.StdErr.AtEndOfStream
    WScript.Echo  Exec.StdErr.ReadAll
    WScript.Sleep 100
Loop

あと、管理者権限で実行する必要がありますが、その辺は大丈夫でしょうか？

Comments

[dera]

管理者権限は大丈夫です。　サンプルコード通りに動かしてみたら実行できました。 /fで強制的にやってくれるのですね。とても助かりました。