Not defteri ile Ping Atma

[Swing35]

Merhaba arkadaşlar ben notepad ile basit bi ping atma programı yapmaya çalışıyorum bu konuda yardımcı olabilcek varmı acaba

şu tarz birşey istiyorum ping sonuçlarını test1 dosyasına otomatik yazıp kapanacak.


@echo off
title "Ping Programı"
color a
echo IP NUMARANIZ ?
set /p IP NUMARANIZ=
echo ping %IP NUMARANIZ%>test1.txt
pause

 

[dEmir1]

Merhaba,
Makro bilmiyorum fakat The_Yellow arkadaşımız daha önce böyle bir çalışma yapmış işinizi göreceğine inanıyorum.

http://www.excel.web.tr/f134/excel-ile-ping-gonderimi-t115823.html

 

[Murat OSMA]

Google'a excel.web.tr ping site:excel.web.tr yazıp aratabilirsiniz.

 

[Swing35]

teşekkür ederim demir fakat bana bat olarak çalıştırcağım notepad dos komutu lazım ofis programlarında hazırlanmış kod istemiyorum

 

[Swing35]

baktım zaten murat hocam neden illa notepad dersen bazı arkadaşlarımda ofis yok o yüzden notepad dos lazım

 

[Murat OSMA]

Şu kodları bir deneyiniz;
C:\ dizini altında ping1 - 2 - 3 - 4 - 5 - 6 .txt adında sonuç belgeleri bulacaksınız.

[FONT="Trebuchet MS"]Sub ping()
    Dim cmd As String
    MinIP = 1
    MaxIP = 6
    For x = MinIP To MaxIP
    cmd = Environ("comspec") & " /c ping -a -n 1 -w 10 192.168.1." & x _
                    & " > c:\ping" & x & ".txt"
    Shell cmd   '
  Next x
 
 Application.Wait (Now + TimeValue("0:00:10"))
 Range("A2:C65536").Clear
    
    Dim HostLength As Integer
    Dim Host As String
    Dim Responselength As Integer
    Dim Response As String
    
    Range("A1") = "IP"
    Range("B1") = "HostName"
    Range("C1") = "Response"

  For x = MinIP To MaxIP
  
    Open "c:\ping" & x & ".txt" For Output As #1
    Workbooks.Open ("C:\ping" & x & ".txt")

    HostLength = InStr(1, Range("A3"), "[", 1) - 10
    If HostLength > 0 Then
      Host = Left(Right(Range("A3"), Len(Range("A3")) - 8), HostLength)
    Else
    Host = "Unresolved"
    End If

    Responselength = Len(Range("A7")) - InStr(1, Range("A7"), "time", 1) - 12
    If Responselength > 0 Then
      Response = Left(Right(Range("A7"), Responselength + 8), Responselength)
    Else
      Response = "Timed Out"
    End If

    ActiveWorkbook.Close
    Range("A" & x + 1) = "'192.168.1." & x
    If Host = "Unresolved" And Response = "Timed Out" Then
    Else
      Range("B" & x + 1) = Host
      Range("C" & x + 1) = Response
      If Host = "Unresolved" Then Range("B" & x + 1).Font.Italic = True
      If Response = "Timed Out" Then Range("C" & x + 1).Font.Italic = True
    End If

  Next x
End Sub
[/FONT]