求助，批量修改hosts文件批处理

jimmyhrs

我想写个批处理，来批量修改hosts文件，要判断是否有www.xxxx.com.cn这条记录，如果有就删除然后加一条备注说明已经删除，如果没有就直接添加一条备注说明没有。
请教各位大侠，这个如何写？

apang

楼主用什么系统，怎么会出现"批量"？

我的只有一个hosts

jimmyhrs

不止一台电脑。。。我用组策略去推。。。。。。。。

jimmyhrs

求助啊求助

BAT-VBS

1. @echo off
   
2. set "hostfile=%systemroot%\system32\drivers\etc\hosts"
   
3. findstr "www.xxxx.com.cn" "%hostfile%" >nul
   
4. if errorlevel 1 (
   
5.     >>"%hostfile%" echo # 没有
   
6. ) else (
   
7.     findstr /v "www.xxxx.com.cn" "%hostfile%" >hosts.tmp
   
8.     >>hosts.tmp echo # 已删除
   
9.     move /y hosts.tmp "%hostfile%"
   
10. )

复制代码

apang

vbs，学习中。。。

1. Set WshShell = CreateObject("Wscript.Shell")
   
2. Hosts = WshShell.ExpandEnvironmentStrings("%WinDir%")
   
3. Hosts = Hosts & "\system32\drivers\etc\hosts"
   
4. Flag = "# 没有"
   
5. 
   
6. Set FSO = CreateObject("Scripting.FileSystemObject")
   
7. Set File = FSO.OpenTextFile(Hosts,1)
   
8. Do Until File.AtEndOfStream
   
9.    Text = File.ReadLine
   
10.    If InStr(Lcase(Text),"www.xxxx.com.cn") = 0 Then
    
11.       Str = Str & Text & vbCrLf
    
12.    Else
    
13.       Flag = "# 已删除"
    
14.    End If
    
15. Loop
    
16. FSO.OpenTextFile(Hosts,2).Write Str & Flag
    
17. MsgBox "OK"

复制代码