バッチファイルを作成せずにDOSコマンドを発行するには？

解決

---

タイトルの通りです。
ご教示ください。

編集    削除

---

dim sCommand    as String '発行コマンドの編集
dim sFile       as String 'CMD.EXEファイルパス取得
Const sDev      as String = "/c"    'コマンドスイッチ文字
↓コマンドプロセッサファイルのパスをシステム環境変数より取得
sFile = strconv("COMSPEC")   
↓発行するコマンドを編集(仮) 
sCommand = sDev & space(1) & "Net Start Workstation"
↓コマンド.Comファイルへトークン(スペース1バイト)にて引数(コマンド)を実行
if Shell(sFile & Space(1) & sCommand,vbHide) <> 0 then 
    発行したっぽい！
end if
結果のログを吐かせる等を必要としないのであれば上記で大丈夫だと思います。(改行を要する場合はどうなるのか解りません？)
試していないので確認して見てください。

編集    削除

---

システム環境変数取得の関数が違いました・・・
strconv の訳が無い→Environ("COMSPEC)です。

編集    削除

---

レスが遅れました
早速試してみます。

編集    削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。