使用vbs删除host文件域址内容

本文给大家分享的是使用VBS实现删除host文件里面的指定内容，非常的简单实用，有需要的小伙伴可以参考下。

要求：原先host里面已增加以下3行

202.102.101.105 intranet.corp

202.102.101.107 mail.intranet.corp

202.102.101.108 sip.intranet.corp

之后不需要此3行内容,所以运行以上vbs代码,来删除host文件此3行

1. '该脚本要求执行用户有本地管理员权限 
2. Const ForReading = 1, ForWriting = 2, ForAppending = 8, ReadOnly = 1 
3. Set fso = CreateObject("Scripting.FileSystemObject") 
4. Set WshShell=CreateObject("WScript.Shell") 
5. 'WinDir 为windows安装目录 
6. WinDir =WshShell.ExpandEnvironmentStrings("%WinDir%") 
7. '设定host 文件目录 
8.  
9. HostsFile = WinDir & "/System32/Drivers/etc/Hosts" 
10. '检查host文件是否为只读，如为只读，则修改文件属性 
11. Set objFSO = CreateObject("Scripting.FileSystemObject") 
12. Set objFile = objFSO.GetFile(HostsFile) 
13. If objFile.Attributes And ReadOnly Then 
14. objFile.Attributes = objFile.Attributes Xor ReadOnly 
15. End If 
16.  
17.  
18. Set objFSO = CreateObject("Scripting.FileSystemObject") 
19. Set objFile = objFSO.OpenTextFile(HostsFile, ForReading,true) 
20.  
21. '检查host文件里面是否已经更改过了，如果更改过，则不再执行脚本 
22. hostfileline="" 
23. Do Until objFile.AtEndOfStream 
24.  
25. strline = objfile.ReadLine 
26. If InStr (strline, "202.102.101.105") <> 0 Or (InStr (strline, "202.102.101.107"))<>0 Or (InStr (strline, "202.102.101.108")) Then 
27. strline="" 
28. End If 
29. hostfileline=hostfileline+vbCrLf+strline 
30. Loop 
31. WScript.Echo hostfileline 
32. objFile.Close 
33.  
34.  
35. '修改host文件 
36. Set filetxt = fso.OpenTextFile(HostsFile, ForWriting ) 
37. filetxt.Write hostfileline 
38. filetxt.Close 
39. WScript.Quit