« WSH - 一時停止(バッチファイルのpause) | トップページ | WSH - キャリッジリターン(vbCr)を使う »

2009年8月31日 (月)

WSH - 外部コマンドの実行

外部コマンドを実行する処理。

'WshShellオブジェクト
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")

'実行するコマンド
Dim strCmd
strCmd = "ping 192.168.0.1"

'実行
Dim objExec
Set objExec = WshShell.Exec( strCmd )

'終了まで待つ
Do While objExec.Status <> 1
  WScript.Sleep 100
Loop

'コマンドの出力を画面表示
WScript.Echo objExec.StdOut.ReadAll

'開放
Set objExec = Nothing

« WSH - 一時停止(バッチファイルのpause) | トップページ | WSH - キャリッジリターン(vbCr)を使う »

プログラム・スクリプト」カテゴリの記事

2019年11月
          1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30

Amazonリンク

ダイビング写真(swf)

ブログ内検索

  • Google
    WWW を検索
    ブログ内を検索

リンク(いつもお世話さま)

  • ソニーストア
     iTunes Store(Japan)
    Just MyShop(ジャストシステム)
    ブックオフオンライン
無料ブログはココログ