VBscriptにTopShelfのコマンドを埋め込むことはできる？

Question

お世話になります。

全然わからないので、検討違いでしたら申し訳ありません。

環境はVisual Studio2017
Visual Studio2017 Installer Project
TopShelf4.0.4

現在、TopShelfで作成したコンソールアプリケーションを
InstallerProjectにて作成したセットアップを用いて
インストール作業を行っています。

インストール作業後、cmdなどで
TopShelfのinstallコマンドを使い、
Windowsサービスに登録すればいいと思うのですが、

インストール作業が完了した時点で一緒にinstallコマンドも発動
させたいと思っています。

そこでカスタム動作にはvbsファイルが使えることがわかったため、
VBScriptにTopShelfのinstallコマンドが使えるか調べたのですが、
文献が全くでてこなく、行き詰りました。

不可能であれば、代案を考え、そちらに切り替えようと思いますが、
もし実現可能かもしれないのであれば、何か些細な情報でもいいので、
ご教示願います。

Comments

[dodox86]

TopShelfを使うことが目的なのでしょうか。それともインストーラーでWindowsサービスをインストールすることが目的なのでしょうか。 後者であれば、Windows標準のInstallUtilコマンドではダメなのでしょうか。

[dera]

TopShelfで作成したexeをインストールした後にwindowsサービスに登録したいので、後者・・ですかね。　標準コマンドについては調べてみます。ありがとうございます。

Answer 1

すみません。下記の方法で解決できました。

Option Explicit
On Error Resume Next

Dim objWshShell     ' WshShell オブジェクト

Set objWshShell = CreateObject("WScript.Shell")
objWshShell.Exec("サービスのパス install" )


Set objWshShell = Nothing