タスクスケジューラによるVBScript実行

Question

実現したいこと

VBSファイルをタスクスケジューラで実行させたいです。
●以下参考URLに沿って設定したのですが、実行できませんでした。
参考サイト：https://plus-info-tech.com/macro-auto-run
※PCはログオン状態で実施しました。

●タスクスケジューラ設定状況

発生している問題・エラーメッセージ

●以下実行ボタンを押しても、トリガー設定しても動作しませんでした。

●タスクスケジューラの履歴は以下になっていました。

該当のソースコード

Dim excelApp,macro

file = WScript.Arguments(0)
macro = WScript.Arguments(1)

Set excelApp = CreateObject("Excel.Application")

excelApp.Visible = False        'Excelを非表示にする
excelApp.DisplayAlerts = False  'ポップアップメッセージを非表示にする
excelApp.AutomationSecurity = 1 'マクロを有効にする

'Excelファイルを読み取り専用で開く
excelApp.Workbooks.Open file,3,False

'WScript.Echo "---マクロを実行します---"

'マクロを実行する
excelApp.Run macro

'WScript.Echo "---マクロの実行が完了しました---"

'Excelを終了する
excelApp.Quit

Set excelApp = Nothing

Sub 転記()
    Path = "\\vvv\www\xxx\yyy"　’vvv,www,xxx,yyyはパス名になります。
    Workbooks.Add                                                                                                                       'ファイル作成
    ThisWorkbook.Sheets("A").Copy After:=ActiveWorkbook.Sheets(Sheets.Count)    '新規ファイルの最終シートへコピー
    Application.DisplayAlerts = False                                                                                             'メッセージ非表示※上書き保存
        For Each ws In Sheets
            If ws.Name <> "A" Then ws.Delete                                                                   'ワークシート名が"溶接機一覧"以外は削除
        Next ws
    ActiveWorkbook.SaveAs Filename:=Path & "\" & "一覧"  '保存
    ActiveWorkbook.Close '新規ファイル閉じる
    Application.DisplayAlerts = True  'メッセージ表示※上書き保存
    
End Sub

試したこと

●コマンドプロンプト上では問題なくVBScriptを実行する事が出来ました。

補足情報（FW/ツールのバージョンなど）

●VBAファイルとvbs保管場所

●VBA実行後上書きされるファイル保管場所
※朱字はパス名になります。

ここにより詳細な情報を記載してください。

追加資料

①トリガー設定
→起動条件が満たされていないとエラーが出てしまいます。

Comments

[kikukiku]

「ユーザーがログインしていなかった」と記述されているため、
ログオンしているとご説明されていますが、ログオンしていないことが事実ではないかと思います。
トリガーの設定はどのようになっているのでしょうか？
スタートアップ時になっているのでしたら、PC起動からログインするまでの間に
タスクが実行されている可能性があるのではないでしょうか？
トリガーを時間指定（確実にログオンしている時間）にして、試してみては如何でしょうか？

[kikukiku]

もう一つ考えられることとしては、ログインしているユーザがAであり、
タスク実行時に使うユーザがBになっている場合でも
発生するのでないでしょうか？

[jabe]

ご連絡ありがとうございます。
①トリガー設定につきまして
スケジュールに従うで時間設定をしましたが、VBAが実行されませんでした。
追加資料の通り

[jabe]

ログインユーザーは自分自身の為、他ユーザーで使用は試しておりません。

[kikukiku]

「ユーザーがログインしていなかった」とエラーが出ているのに、矛盾しますね。
では、大きく原因を切り分けていくのはどうでしょう。
実行するものをスクリプトではなく、メモ帳か何かにしてみては？
コマンドプロンプトからのスクリプト実行で問題ないことが確認できているので
メモ帳に変えた場合は、同様に動かないはず？

[kikukiku]

当方の環境で、notepad.exeの実行にて試したところ、問題なく動作しました。

[jabe]

返信ありがとうございます。
お手数お掛けしますが、VBScript　からexe化はどうのように行えばよろしいでしょうか？
拡張子を変えるだけでしょうか？

[kikukiku]

スクリプトをexeに変換してということではなく、
下記を実行してみたらどうですか？と提案しました。
C:\Windows\System32\notepad.exe

[kikukiku]

目的は、大きく原因を切り分けるためです。

[jabe]

ありがとうございます。
以下操作パターンでトライしましたが、実行できませんでした。
・パターン1
プログラム/スクリプト
C:\Windows\System32\notepad.exe
・パターン2
プログラム/スクリプト
"C:\Windows\System32\notepad.exe"
・パターン3
プログラム/スクリプト
C:\Windows\System32\notepad.exe
開始（オプション）
C:\Windows\System32\
・パターン4
プログラム/スクリプト
"C:\Windows\System32\notepad.exe"
開始（オプション）
"C:\Windows\System32\"

[jabe]

以上の結果から、タスクスケジューラを起動する事が出来ていない可能性がありそうです。

[jabe]

以下Excelファイルで実行すると、タスクスケジューラで実行は出来ました。
プログラム/スクリプト
C:\Users\個人情報.SWN\Desktop\業務棚卸シート.xlsx

[kikukiku]

デスクトップにnotepad.exeをコピーして、スケジューラから、動作させることはできますか？

[jabe]

デスクトップでもスケジューラからの動作不可でした。

[kikukiku]

うーーん。おかしいですね。
なんで、
C:\Users\個人情報.SWN\Desktop\業務棚卸シート.xlsxの場合は起動できて、
C:\Users\個人情報.SWN\Desktop\notepad.exeの場合は、起動できないのかわからないなー。

[kikukiku]

なんか第３者にはわからない何かの違いが絶対にあると思うのですが。。。。
申し訳ないですが、思いつかない。。。。

[jabe]

そうなんですよね、Excelファイルは実行できるのですが、vbs,exeにすると実行できないんですよね。
因みにですが、kikukikuさんは、タスクスケジューラの操作設定は以下で行いましたか？
プログラム/スクリプト
C:\Windows\System32\notepad.exe

[kikukiku]

上記の通りで動作しています。
ちなみに自身のアカウントでログインしている状態で、
タスクを新規作成し、上記notepat.exeを設定し、
実行ボタンを押下しましたら、メモ帳が起動しました。

[kikukiku]

あ、ウイルスチェックか何かのアプリは入っていますか？
入っていたら、一時的に無効にできませんか？
※たぶん関係ないとは思うのですが、念のため。

[jabe]

返信ありがとうございます。
cybereasonというウイルスチェックソフトが入っています。
一時的に無効にして、実行したのですが動作しませんでした。😢

[kikukiku]

ちなみに下記を実行したときのエラー内容は、「ログオンしていなかった」ですか？
C:\Users\個人情報.SWN\Desktop\業務棚卸シート.xlsx
C:\Users\個人情報.SWN\Desktop\notepad.exe

[kikukiku]

別のPCで同じことを試せませんか？

[kikukiku]

整理してみましょう。
・タスクスケジューラから下記を起動できた。
　このことからタスクスケジューラの設定には問題ないことがわかる。
　C:\Users\個人情報.SWN\Desktop\業務棚卸シート.xlsx
・タスクスケジューラからnotepad.exeやスクリプトは起動できなかった。
・notepad.exe、スクリプトの単体起動は問題なく動作する。
・ウイルスチェックは一時的に無効にしたが、問題は解消されなかった。

上記のことから、何らかの機能がnotepad.exeやスクリプトの起動を妨げていると
考えるのが妥当と思います。
システム管理者がおそらく存在すると思うので
何かしらの制限が入っていないか相談してみることをお勧めます。

[jabe]

はい、「ログインしていなかった」というエラーになります。
表示内容としましては、質問分にあります。”●タスクスケジューラの履歴は以下になっていました。”の添付画像の通りになります。

承知しました、他ＰＣで実施してみます。

[jabe]

他PCで以下タスクスケジューラで実行したところ、動作しました。
プログラム/スクリプト
C:\Users\個人情報.SWN\Desktop\業務棚卸シート.xlsx

[jabe]

整理していただきありがとうございます。
PCの制限を確認してみます。

[kikukiku]

全般画面の「最上位の特権で実行する」にチェックを入れた場合はどうなるでしょうか？

[jabe]

同様な結果になってしまいます。

[kikukiku]

＞他PCで以下タスクスケジューラで実行したところ、動作しました。
＞プログラム/スクリプト
＞C:\Users\個人情報.SWN\Desktop\業務棚卸シート.xlsx
他PCでのVBスクリプトは実行できなかった？

[kikukiku]

下記のパスは、ログインしているユーザのデスクトップですか？
C:\Users\個人情報.SWN\Desktop

[kikukiku]

もし上記が違うのであれば、ログインしているユーザ自身のデスクトップに、
エクセルとVBスクリプトとnotepadの３種をコピーして
タスクスケジューラからの起動を確認したい。

[kikukiku]

C:\Windows\System32\notepad.exeにあるexeをデスクトップにコピーした場合、
exeは起動できないようです。
すみません。これは間違いですのでテストの意味がないです。

[kikukiku]

test.vbsのVBスクリプトを用意。
内容は「MsgBox "Hello, World"」のみ。
上記スクリプトをログインしている自身のデスクトップに配置。
スケジューラから上記スクリプトを起動することを確認しました。

上記同じことをできますか？

[jabe]

上記「MsgBox "Hello, World"」実行できました。

[kikukiku]

お、だとするとスクリプトの中に問題があるということですね。
どこまで正常に進んでいるかどうか確認するために、
MsgBoxをいろいろな箇所に入れていって、
失敗する行を探すのが良いと思います。

[jinoji]

マクロ内のファイル保存先をサーバでなくローカルフォルダにしても同じですか？

[jabe]

vbs実行する事が出来ました。
原因は、タスクスケジューラ全般設定のユーザがローカルユーザになっていた事になります。
親身になって調べていただき、ありがとうございました。

Answer 1

原因は、タスクスケジューラ全般設定のユーザがローカルユーザになっていた事になります。