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

解決

まる 2002-02-26 22:57:26 No: 75328

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

マザー 2002-02-26 23:19:08 No: 75329

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
結果のログを吐かせる等を必要としないのであれば上記で大丈夫だと思います。(改行を要する場合はどうなるのか解りません？)
試していないので確認して見てください。

マザー 2002-02-26 23:30:19 No: 75330

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

まる 2002-02-28 02:51:19 No: 75331

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