;需在目录下建立一个SouceAddress.txt文件，并确保每一行写入一个IP或主机名（域名）
 ;程序会生成一个PingList.txt文件用于记录结果（如果不存在则创建，存在则追加）

$g_szVersion = "Ping_Computer"
If WinExists($g_szVersion) Then Exit ; 此脚本已经运行了
AutoItWinSetTitle($g_szVersion) ;定义程序的标题

#Include <date.au3>  ;引用date.au3用来显示日期与时间

;设置两个变量
$SouceAddress="SouceAddress.txt"
$PingList="PingList.txt"

;设置快捷方式Ctrl+Alt+x
HotKeySet("^!x", "MyExit")

;打开并向$PingList文件是写入日期时间
$info=FileOpen($PingList,1)
FileWrite($info, "==========================================" & @CRLF)
FileWrite($info, "日期/时间:" & _now() & @CRLF)   ;写入当前日期与时间
FileWrite($info, "==========================================" & @CRLF)

;关闭文件
fileclose($info)

;定义退出功能
Func MyExit()
    Exit
EndFunc

;定义Ping功能，并写入指定文件
func SPing()
 ;打开$SouceAddress文件，如果出错则提示信息并退出程序
 $file = FileOpen($SouceAddress, 0)
 If $file = -1 Then
  MsgBox(0, "错误", "目标文件不存在或无法打开。")
  Exit
 EndIf

    While 1
  ;读取一行，并判断是否最后，是则退出
        $line = FileReadLine($file)
        If @error = -1 Then ExitLoop
  $var = Ping($line,250)
  If $var Then
   FileWrite($info, $line & "主机在线，收发时间长度是"  & $var & @CRLF)
  Else
   ;按@error出错参数输出信息
   Select
    case @error=1
     FileWrite($info, $line & "目标主机离线" & @CRLF)
    case  @error=2
     FileWrite($info, $line & "目标主机无法连接" & @CRLF)
    case  @error=3
     FileWrite($info, $line & "目标错误" & @CRLF)
    case  @error=4
     FileWrite($info, $line & "其它错误" & @CRLF)
   EndSelect
  EndIf
  FileWrite($info, @CRLF)
    Wend
     FileClose($file)
EndFunc