这篇文章主要讲解了“如何使用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 = 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
感谢各位的阅读,以上就是“如何使用vbs删除host文件域址内容”的内容了,经过本文的学习后,相信大家对如何使用vbs删除host文件域址内容这一问题有了更深刻的体会,具体使用情况还需要大家实践验证。这里是亿速云,小编将为大家推送更多相关知识点的文章,欢迎关注!
免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。