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

这篇文章主要讲解了“如何使用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行

'该脚本要求执行用户有本地管理员权限Const ForReading = 1, ForWriting = 2, ForAppending = 8, ReadOnly = 1Set 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 ReadOnlyEnd IfSet objFSO = CreateObject("Scripting.FileSystemObject")Set objFile = objFSO.OpenTextFile(HostsFile, ForReading,true)'检查host文件里面是否已经更改过了，如果更改过，则不再执行脚本hostfileline=""Do Until objFile.AtEndOfStreamstrline = objfile.ReadLineIf 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+strlineLoopWScript.Echo hostfilelineobjFile.Close'修改host文件Set filetxt = fso.OpenTextFile(HostsFile, ForWriting )filetxt.Write hostfilelinefiletxt.CloseWScript.Quit

感谢各位的阅读，以上就是“如何使用vbs删除host文件域址内容”的内容了，经过本文的学习后，相信大家对如何使用vbs删除host文件域址内容这一问题有了更深刻的体会，具体使用情况还需要大家实践验证。这里是编程网，小编将为大家推送更多相关知识点的文章，欢迎关注！