人気ブログランキング | 話題のタグを見る

[VBScript] コマンドプロンプトの結果を文字列で取得する

どーもボキです。

コマンドプロンプトの結果をスクリプトで受け取ると色々できます

ユーザPC上でコマンドプロンプトを使いたくても、それをユーザに打ち込ませるのはなかなか大変です。そんな時は、スクリプトとコマンドプロンプトとの組み合わせがオススメです。この技術を使えば、ユーザPCの情報を取りたい時もスクリプトを実行させるだけ、にできますよ。


サンプルプログラムのダウンロードと使い方

  • 使い方は、実行する、だけ。ipconfigの結果がダイアログ表示されます。
    [VBScript] コマンドプロンプトの結果を文字列で取得する_a0021757_22041965.png

今回開発したプログラムソース

s = ExecuteCommand("ipconfig")
WScript.Echo s


' ==============================================================================

'-------------------------------------------------------------------------------
' コマンドプロンプト処理での出力結果文字列を処理する
' Command:実行するコマンド
'
' 戻り値 :コマンドが出力した文字列
'-------------------------------------------------------------------------------
Private Function ExecuteCommand(sCommand)
Dim objWS: Set objWS = CreateObject("WScript.Shell")
Dim objFS: Set objFS = CreateObject("Scripting.FileSystemObject")
Dim fname: fname = objFS.GetTempName
Dim cmd: cmd = "cmd /c """ & sCommand & " > " & fname & """"
' プロセスの戻り値を取得
Dim b
b = objWS.Run(cmd, 0, True) = 0 ' 0=成功、1=失敗
Dim s
s = objFS.OpenTextFile(fname).ReadAll ' 一時ファイルを読み込み
objFS.DeleteFile(fname) ' 一時ファイルを削除
ExecuteCommand = s
End Function


にほんブログ村 IT技術ブログへ
にほんブログ村

by yozda | 2022-02-10 07:00 | プログラミング | Comments(0)