VBS kodu ile CMD ekranında ping atma nasıl yapılır?

Option Explicit.

' Gerekli değişkenleri tanımla.
Dim objShell, strIPAdresi, strPingSecenekleri.

' Shell nesnesini oluştur.
Set objShell = WScript.CreateObject("WScript.Shell")

' Kullanıcı arayüzünü oluştur (IP adresi girişi)
' vbCrLf kullanarak satır atlamayı sağlıyoruz.
strIPAdresi = InputBox("Ping atmak istediginiz IP adresini girin:" & vbCrLf & vbCrLf & _
 "IP adresi sonuna '- t' eklerseniz surekli ping islemi gerceklesir." & vbCrLf & _
 "Surekli ping islemi Ctrl + C tuslari ile kesilir.", "Ping Araci - IP Girisi")

' Eğer bir IP adresi girildiyse.
If strIPAdresi <> "" Then.
 ' Kullanıcının girdiği IP adresine göre ping seçeneklerini belirle.
 ' Eğer IP adresi '-t' ile bitiyorsa, bu seçeneği olduğu gibi kullan.
 ' Aksi takdirde, varsayılan olarak 4 paket gönderilir.
 If InStr(strIPAdresi, "-t") > 0 Then.
 strPingSecenekleri = strIPAdresi ' Kullanıcının girdiği gibi kullan (-t dahil)
 Else.
 strPingSecenekleri = strIPAdresi & " -n 4" ' Varsayılan olarak 4 paket gönder.
 End If.

 ' Komutu çalıştır.
 ' 'cmd /k' komutu, Komut İstemi'ni açar ve komut bittikten sonra açık tutar.
 ' '1' parametresi pencerenin görünür olmasını sağlar.
 ' 'True' parametresi, betiğin ping işlemi tamamlanana kadar beklemesini sağlar.
 ' Bu, VBScript'in CMD penceresi kapanana kadar beklemesi demektir.
 objShell.Run "cmd /k ping " & strPingSecenekleri, 1, True.

Else.
 ' Eğer IP adresi girilmediyse uyarı ver.
 MsgBox "Herhangi bir IP adresi girilmedi. Islem iptal edildi.", vbExclamation, "Uyarı"
End If.

' Nesneleri serbest bırak.
Set objShell = Nothing.

WScript.Quit