musti35
Kilopat
- Katılım
- 24 Şubat 2017
- Mesajlar
- 34
Daha fazla
- Cinsiyet
- Erkek
Merhaba arkadaşlar;
VBS dosyası ile CMD ekranında ping atmak istiyor.
VBS dosyasını çalıştırınca input ekranı gelecek, ben IP adresini gireceğim ve CMD ekranı açılarak klasik şekilde IP adresine ping atılacak.
Aşağıdaki kodları kullanarak bir VBS dosyası oluşturdum ama IP adresini girdikten sonra CMD ekranı açılıyor, simsiyah kalıyor, ping işlemi başlamıyor ve yine IP'nin sorulduğu input ekranı geliyor.
Sorunu nasıl çözebilirim?
Şimdiden teşekkür ederim.
VBS dosyasını çalıştırıp IP adresini girdikten sonra aşağıdaki gibi oluyor:
VBS dosyası ile CMD ekranında ping atmak istiyor.
VBS dosyasını çalıştırınca input ekranı gelecek, ben IP adresini gireceğim ve CMD ekranı açılarak klasik şekilde IP adresine ping atılacak.
Aşağıdaki kodları kullanarak bir VBS dosyası oluşturdum ama IP adresini girdikten sonra CMD ekranı açılıyor, simsiyah kalıyor, ping işlemi başlamıyor ve yine IP'nin sorulduğu input ekranı geliyor.
Sorunu nasıl çözebilirim?
Şimdiden teşekkür ederim.
Kod:
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.QuitVBS dosyasını çalıştırıp IP adresini girdikten sonra aşağıdaki gibi oluyor:
