Vbscriptでサービスの存在を確認

プログラムをインストールしたかどうか確認する場合があります。プログラムインストール後、サービスに追加されるのであれば、サービスが存在しているかどうかを確認することで、プログラムがインストールされたどうかを判断できます。

コードは以下です

'ローカルコンピュータに接続する。
Set objLocator = WScript.CreateObject("WbemScripting.SWbemLocator")
Set objService = objLocator.ConnectServer
'クエリー条件をWQLにて指定する。
Set objClassSet = objService.ExecQuery("SELECT * FROM Win32_Service WHERE Name='Winmgmt'")

if objClassSet.count = 1 then
    wscript.echo("サービスが存在している")
end if

この記事がお役にたちましたらシェアをお願いします:)

• ツイート
•