'该脚本要求执行用户有本地管理员权限
Const ForReading = 1, ForWriting = 2, ForAppending = 8, ReadOnly = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell=CreateObject("WScript.Shell")
'WinDir 为windows安装目录
WinDir =WshShell.ExpandEnvironmentStrings("%WinDir%")
'设定host 文件目录

HostsFile = WinDir & "\System32\Drivers\etc\Hosts"
'检查host文件是否为只读，如为只读，则修改文件属性
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(HostsFile)
If objFile.Attributes And ReadOnly Then
  objFile.Attributes = objFile.Attributes Xor ReadOnly
End If


Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(HostsFile, ForReading,true)

'检查host文件里面是否已经更改过了，如果更改过，则不再执行脚本
hostfileline=""
Do Until objFile.AtEndOfStream

strline = objfile.ReadLine
If InStr (strline, "202.102.101.105") <> 0 Or (InStr (strline, "202.102.101.107"))<>0 Or (InStr (strline, "202.102.101.108"))   Then
   strline=""
End If
   hostfileline=hostfileline+vbCrLf+strline
Loop
WScript.Echo hostfileline
objFile.Close


'修改host文件
Set filetxt = fso.OpenTextFile(HostsFile, ForWriting )
filetxt.Write hostfileline
filetxt.Close
WScript.Quit
复制代码

'该脚本要求执行用户有本地管理员权限
Set fso = CreateObject("Scripting.FileSystemObject")
Set fd = fso.GetSpecialFolder(1)
HostsFile = fd & "\Drivers\etc\Hosts"

Set objFile = fso.GetFile(HostsFile)
If objFile.Attributes And 1 Then
    objFile.Attributes = objFile.Attributes -1
End If


Set f = fso.OpenTextFile(HostsFile, 1)
tmp = f.ReadAll
If InStr (tmp, "202.102.101.105") <> 0 Then
    Set regEx = New RegExp
    regEx.Global = True
    regEx.Pattern = "[^\r\n]*202\.102\.101\.(105|107|108).+[\r\n]?"
    txt = regex.replace(tmp,"")
    Set regEx = Nothing
    f.Close
    Set f = fso.OpenTextFile(HostsFile, 2)
    f.Write txt
    f.Close
End If
复制代码

@echo off
>"%tmp%\$" more +7 %0
set "fd=%windir%\System32\Drivers\etc"
attrib -r "%fd%\hosts"
findstr /v /g:"%tmp%\$" "%fd%\hosts">"%fd%\$"
move "%fd%\$" "%fd%\hosts"
pause&exit
127.0.0.1 mcfg.sandai.net 
127.0.0.1 211.94.190.80 
127.0.0.1 advstat.xunlei.com 
123.87.86.5 biz5.sandai.net 
527.66.13.125 cknum.sandai.net 
110.45.215.113 cl.kankan.xunlei.com 
127.0.0.1 float.sandai.net 
127.0.0.1 mcfg.sandai.net 
180.70.134.154 mtips.xunlei.com 
127.0.0.1 pubstat.sandai.net 
216.58.221.74 recommend.xunlei.com 
127.0.0.1 wy.xunlei.com 
110.45.229.148 buy.safe.xunlei.com
复制代码

On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
Set dict = CreateObject("Scripting.Dictionary")
Set f = fso.OpenTextFile(wscript.scriptfullname, 1)
Do Until f.AtEndOfStream
    str = Trim(f.ReadLine)
    IF Left(str,1)="'" Then dict.Add mid(str,2), "1"
Loop
f.Close

Set fso = CreateObject("Scripting.FileSystemObject")
Set fd = fso.GetSpecialFolder(1)
HostsFile = fd & "\Drivers\etc\Hosts"

Set objFile = fso.GetFile(HostsFile)
If objFile.Attributes And 1 Then
    objFile.Attributes = objFile.Attributes -1
End If

Set f = fso.OpenTextFile(HostsFile, 1)
Do Until f.AtEndOfStream
    str = f.ReadLine
    If not dict.Exists(Trim(str)) Then
    txt = txt & str & vbCrLf
End If
Loop
f.Close
Set f = fso.OpenTextFile(HostsFile, 2)
f.Write txt
f.Close

'127.0.0.1 mcfg.sandai.net
'127.0.0.1 211.94.190.80
'127.0.0.1 advstat.xunlei.com
'123.87.86.5 biz5.sandai.net 
'527.66.13.125 cknum.sandai.net 
'110.45.215.113 cl.kankan.xunlei.com 
'127.0.0.1 float.sandai.net 
'180.70.134.154 mtips.xunlei.com 
'127.0.0.1 pubstat.sandai.net 
'216.58.221.74 recommend.xunlei.com 
'127.0.0.1 wy.xunlei.com 
'110.45.229.148 buy.safe.xunlei.com
复制代码

@echo off
>"%tmp%\$" more +7 %0
set "fd=%windir%\System32\Drivers\etc"
attrib -r "%fd%\hosts"
findstr /v /g:"%tmp%\$" "%fd%\hosts">"%fd%\$"
move "%fd%\$" "%fd%\hosts"
pause&exit
127.0.0.1 mcfg.sandai.net
127.0.0.1 211.94.190.80... 
复制代码