コマンドプロンプトでpingを実行し、ワークブックをExcelに出力します。

Question

コマンドプロンプトでpingを実行し、出力を保存してExcelブックに保存する必要があります。コマンドプロンプトデータをExcelブックに保存する方法vbscript？テキストファイル用のコードがあります。

Dim oShell,fs 
Set oShell = WScript.CreateObject ("WScript.Shell") 
oShell.run "cmd.exe /C ping 192.168.1.2"& str & " > log.txt" 

set objLog = fs.OpenTextFile("myLogFile.txt", 8, true, 0) 
Set oShell = Nothing 

Answer 1

Pingの結果を保存した一時ログファイルを作成する必要はありません。 .Execメソッドを使用してコンソールから簡単に読み込むことができます。以下のサンプルコード。

Set objShell = CreateObject("WScript.Shell") 
Set objExec = objShell.Exec("cmd.exe /c ping 192.168.1.2") 
strOut = objExec.StdOut.ReadAll() 
Set objExec = Nothing : Set objShell = Nothing 

Set objExcel = CreateObject("Excel.Application") 
objExcel.Workbooks.Add 
objExcel.Visible = False 
Set Sheet1 = objExcel.ActiveWorkbook.Worksheets(1) 
arr = Split(strOut, vbNewLine) 
For i = LBound(arr) To UBound(arr) 
    Sheet1.Range("A" & i+1).Value = arr(i) 
Next 
objExcel.ActiveWorkbook.SaveAs "C:\Users\pankaj.jaju\Desktop\PingResult.xlsx" 
objExcel.ActiveWorkbook.Close False 
Set Sheet1 = Nothing : Set objExcel = Nothing 

msgbox "done" 
wscript.quit