如何在ping 命令结果前面加上时间日期!!!

slash001

1. 
   
2. Set shell = WScript.CreateObject("WScript.Shell")
   
3. Set re=New RegExp
   
4. re.Pattern = "^Reply|^Request"
   
5. Set myping=shell.Exec("ping 192.168.0.249")
   
6. while Not myping.StdOut.AtEndOfStream
   
7.         strLine = myping.StdOut.ReadLine()
   
8.         r=re.Test(strLine)
   
9.         If r Then
   
10.                 WScript.Echo date & " "& time & chr(9) & strLine
    
11.         End if
    
12. Wend
    

复制代码

保存成tping.vbs
在command下执行cscript tping.vbs

输出结果
2005-9-14 12:02:01      Reply from 192.168.0.249: bytes=32 time<10ms TTL=64
2005-9-14 12:02:02      Reply from 192.168.0.249: bytes=32 time<10ms TTL=64
2005-9-14 12:02:03      Reply from 192.168.0.249: bytes=32 time<10ms TTL=64
2005-9-14 12:02:04      Reply from 192.168.0.249: bytes=32 time<10ms TTL=64

slash001

perl的代码

1. 
   
2. #!/usr/bin/perl
   
3. open(PING, "ping 192.168.0.249|");
   
4. while (<PING>)
   
5. {
   
6.         if ($_ =~ /^Reply|^Request/)
   
7.         {
   
8.                 my @date=localtime(time);
   
9.                 printf("%d-%02d-%02d %02d:%02d:%02d %s", $date[5]+1900, $date[4]+1, $date[3], $date[2], $date[1], $date[0], $_);
   
10.         }
    
11. }
    
12. close(PING);
    

复制代码

[ 本帖最后由 slash001 于 2005-11-15 11:41 编辑 ]

slash001

我是在Win2000下测试的
Microsoft (R) Windows Script Host Version 5.6

slash001

C不怎么用，随便写了一个，呵呵
Win2000 Cygwin下编译测试通过

1. 
   
2. #include <stdio.h>;
   
3. #include <string.h>;
   
4. #include <time.h>;
   
5. 
   
6. int main(int argc, char *argv[])
   
7. {
   
8.         time_t clock;
   
9.         struct tm *tm;       
   
10.         char tbuf[20];
    
11. 
    
12.         FILE *res;
    
13.         char buf[256];
    
14.         res=popen("ping 192.168.0.249", "r");
    
15. 
    
16.         while (fgets(buf, sizeof(buf), res))
    
17.         {
    
18.                 if (bcmp(buf, "Reply", 5) == 0 || bcmp(buf, "Request", 7) == 0)
    
19.                 {
    
20.                         time(&clock);
    
21.                         tm=localtime(&clock );
    
22.                         strftime(tbuf, 20, "%Y-%m-%d %H:%M:%S", tm);
    
23.                         printf("%s\t%s", tbuf, buf);
    
24.                 }
    
25.         }
    
26.         pclose(res);
    
27.         return 0;
    
28. }
    

复制代码

slash001

原帖由 "b.s.d" 发表：

我的是2003

将Windows脚本宿主升级到5.6试试

slash001

呵呵，我不是做开发的，就会简单的瞎写点，见笑了

slash001

1. 
   
2. Dim args, flag, unsuccOut
   
3. args=""
   
4. otherout=""
   
5. flag=0
   
6. 
   
7. If WScript.Arguments.count = 0 Then
   
8.         WScript.Echo "Usage: cscript tping.vbs [-t] [-a] [-n count] [-l size] [-f] [-i TTL] [-v TOS]"
   
9.         WScript.Echo "                         [-s count] [[-j host-list] | [-k host-list]]"
   
10.         WScript.Echo "                         [-r count] [-w timeout] destination-list"
    
11.         wscript.quit
    
12. End if
    
13. 
    
14. For i=0 to WScript.Arguments.count - 1
    
15.         args=args & " " & WScript.Arguments(i)
    
16. Next
    
17. 
    
18. Set shell = WScript.CreateObject("WScript.Shell")
    
19. Set re=New RegExp
    
20. re.Pattern="^Reply|^Request"
    
21. Set myping=shell.Exec("ping" & args)
    
22. 
    
23. while Not myping.StdOut.AtEndOfStream
    
24.    strLine=myping.StdOut.ReadLine()
    
25.    r=re.Test(strLine)
    
26.    If r Then
    
27.         WScript.Echo date & " "& time & chr(9) & strLine
    
28.         flag=1
    
29.    Else
    
30.         unsuccOut=unsuccOut & strLine
    
31.    End if
    
32. Wend
    
33. 
    
34. if flag = 0 then
    
35.         WScript.Echo unsuccOut
    
36. end if
    

复制代码

E:\>;cscript tping.vbs 192.168.0.249 -t -l 1000
Microsoft (R) Windows Script Host Version 5.6
版权所有(C) Microsoft Corporation 1996-2001。保留所有权利。

2005-9-30 10:03:29      Reply from 192.168.0.249: bytes=1000 time<10ms TTL=64
2005-9-30 10:03:30      Reply from 192.168.0.249: bytes=1000 time<10ms TTL=64
2005-9-30 10:03:31      Reply from 192.168.0.249: bytes=1000 time<10ms TTL=64
2005-9-30 10:03:32      Reply from 192.168.0.249: bytes=1000 time<10ms TTL=64
2005-9-30 10:03:33      Reply from 192.168.0.249: bytes=1000 time<10ms TTL=64
2005-9-30 10:03:34      Reply from 192.168.0.249: bytes=1000 time<10ms TTL=64
2005-9-30 10:03:35      Reply from 192.168.0.249: bytes=1000 time<10ms TTL=64
2005-9-30 10:03:36      Reply from 192.168.0.249: bytes=1000 time<10ms TTL=64