見出し画像

VBSファイルからバッチファイルを呼び出す

2023/10/10追記 将来的にはVBSは非推奨になるらしい

前回はバッチファイルを管理者権限で呼び出すものを作った。
今回もユーザには意識させないで実行させるプログラムを作る。

今回はVBSファイルからバッチファイルを呼び出してみる。


vbsファイルを作ってみる

'変数は宣言しないといけない指定に
Option Explicit
'WshShellオブジェクト変数を宣言
Dim WishShell
'WshShellオブジェクト作成
Set WshShell = CreateObject("WScript.Shell")
'batファイルの実行
WshShell.Run "C:\temp\test.bat"
'オブジェクトの開放
Set WshShell=Nothing

呼び出すバッチファイルは以下

@echo off
rem c:\temp\test フォルダの存在チェック
IF Exist c:\temp\test (
rem 存在する場合はtest1フォルダを作る
mkdir c:\temp\test1
) else (
存在しない場合はtestフォルダを作る
mkdir c:\temp\test
)
exit

結果は無事動いた。

けど一瞬バッチファイルが見える。

バッチファイルを一瞬でも見せないようにする

'変数は宣言しないといけない指定に
Option Explicit
'WshShellオブジェクト変数を宣言
Dim WishShell
'WshShellオブジェクト作成
Set WshShell = CreateObject("WScript.Shell")
'batファイルの実行
WshShell.Run "C:\temp\test.bat",vbhide
'オブジェクトの開放
Set WshShell=Nothing

これで一切画面に表示させずに実行することができた。

今回は以上

その他のバッチファイルの記事は以下


この記事が気に入ったらサポートをしてみませんか?