Запуск ping с параметрами n и l и последующей отправкой инфо на email

Function PingResponseTimeEx(ByVal ComputerName$, Optional ByVal BufferSize As Long = 1024) As Long
     
    Dim i As Integer
    Dim txt As String
 
    Dim oPingResult As Variant: PingResponseTimeEx = -1: On Error Resume Next
       
    For i = 1 To 10
        For Each oPingResult In GetObject("winmgmts://./root/cimv2").ExecQuery _
            ("SELECT * FROM Win32_PingStatus WHERE Address = '" & ComputerName & "' and BufferSize = " & BufferSize)
            If IsObject(oPingResult) Then
                If oPingResult.StatusCode = 0 Then    
                   txt = txt & (ComputerName$ & ": " & BufferSize & "; Step: " & i & "; " & "Time: " & oPingResult.ResponseTime & "; ") & vbCrLf
                Else    
                   txt = txt & (ComputerName$ & ": " & BufferSize & "; Step: " & i & "; " & "Error: " & oPingResult.StatusCode & "; ") & vbCrLf
                End If
              End If
        Next
    Next i
   
    If txt Then WriteFile txt
   
End Function
 
Function WriteFile(txt)
  Dim oFSO, oFile
  Set oFSO = CreateObject("Scripting.FileSystemObject")
  Set oFile = oFSO.CreateTextFile(oFSO.BuildPath("C:\", "test.txt"))
  oFile.Write txt
  oFile.Close: Set oFile = Nothing
  Set oFSO = Nothing
  Set oFile = Nothing
End Function
 
Sub TestPingFunction()
    PingResponseTimeEx ("google.ru")
    MsgBox "Тестирование канала связи закончено! Спасибо!"
End Sub

sFullPath = oFSO.BuildPath(sPath, sFileName & " " & Format(Now, "YYYY.MM.DD-hh.mm.ss") & ".txt")