Sub batファイルを作成してコマンドプロンプトでシステム情報を調査する_systeminfo()
    
    '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