WMIのPingで/t付でするには？

Kuborin 2007-03-01 00:47:12 No: 135563

OS:WinXP
VB:6.0(SP5)

プロジェクトの参照設定で、Microsoft WMI Scripting…にチェックをして

以下のようなソースでpingの結果を取得しています。
画面から入力された判断によって
ping XXX.XXX.XXX.XXX /t
のように"/t"付でpingを投げたい場合があるのですが
どのようにしたら良いかわかりません。

どなたかご存知の方、ご教授くださるよう
よろしくお願い致します。

    Dim swoPingSet As SWbemObjectSet
    Dim swoPing As SWbemObject
    Dim swlLocator As SWbemLocator
    Dim swsService As SWbemServices
    Dim strRtnWMI As String

    'WMI起動
    Set swlLocator = New WbemScripting.SWbemLocator
    Set swsService = swlLocator.ConnectServer

        Set swoPingSet = swsService.ExecQuery _
            ("Select * From Win32_PingStatus Where Address = '" _
             & strHstIP & "'")
        For Each swoPing In swoPingSet
            If swoPing.StatusCode = 0 Then
                intFlg = 0
            ElseIf swoPing.StatusCode = 11010 Then
                intFlg = 1
            Else
                intFlg = 2
            End If
        Next swoPing