Sub batファイルを作成してコマンドプロンプトでIPアドレスを調査する_ipconfig()
'batファイルを作成して、書き込む
Set ファイル = CreateObject("Scripting.FileSystemObject") '実行設定
With ファイル.CreateTextFile("C:\test.bat")
.WriteLine Range("A1") '書込
.WriteLine Range("A2") '書込
.Close '保存(※"C:\test.bat"ファイルが作成されています)
End With
'作成したbatファイルを実行する
Set DOSコマンド = CreateObject("WScript.Shell") '実行設定
Call DOSコマンド.Run("C:\test.bat") '実行
End Sub