求助删除hpst

luyuwen3

# Copyright (c) 1993-2009 Microsoft Corp.
#
# This is a sample HOSTS file used by Microsoft TCP/IP for Windows.
#
# This file contains the mappings of IP addresses to host names. Each
# entry should be kept on an individual line. The IP address should
# be placed in the first column followed by the corresponding host name.
# The IP address and the host name should be separated by at least one
# space.
#
# Additionally, comments (such as these) may be inserted on individual
# lines or following the machine name denoted by a '#' symbol.
#
# For example:
#
#      102.54.94.97     rhino.acme.com          # source server
#       38.25.63.10     x.acme.com              # x client host

# localhost name resolution is handled within DNS itself.
#        127.0.0.1       localhost
#        ::1             localhost
132311231231
127.0.0.1 mail.casetekcorp.com
127.0.0.1 csmail.casetekcorp.com
127.0.0.1 cjsmail.casetekcorp.com
127.0.0.1 yrkmail.casetekcorp.com
127.0.0.1 autodiscover.casetekcorp.com
127.0.0.1 autodiscover.intra.casetekcorp.com怎么写删除127.0.0.1 mail.casetekcorp.com
127.0.0.1 csmail.casetekcorp.com
127.0.0.1 cjsmail.casetekcorp.com
127.0.0.1 yrkmail.casetekcorp.com
127.0.0.1 autodiscover.casetekcorp.com
127.0.0.1 autodiscover.intra.casetekcorp.com这个具体咋写写了删除不了 ，还望大神指点指点

smallan

#include <File.au3>
#include <Array.au3>
Local $aRetArray, $sFilePath = "C:\windows\system32\drivers\etc\hosts", $sDelString = "127.0.0.1 mail.casetekcorp.com"
FileOpen($sFilePath)
_FileReadToArray($sFilePath, $aRetArray)
$iSearch = _ArraySearch($aRetArray, $sDelString)
_FileWriteToLine($sFilePath, $iSearch, "", 1)
FileClose($sFilePath)