要求：原先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

复制代码

来源：互联网
免责声明：如果侵犯了您的权益，请联系站长（1277306191@qq.com），我们会及时删除侵权内容，谢谢合作！