手机
当前位置:查字典教程网 >脚本专栏 >vbs >使用vbs删除host文件域址内容
使用vbs删除host文件域址内容
摘要:要求:原先host里面已增加以下3行202.102.101.105intranet.corp202.102.101.107mail.intr...

要求:原先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 & "System32DriversetcHosts" '检查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实现cmd功能

vbs删除文本文件的行的函数

用vbs实现防止计算机使用 LMHosts 文件

用vbs实现随机读取文件的一行内容的脚本

用vbs对文本文件的内容进行排序

用vbs实现的确定共享文件夹的本地路径?

用vbs实现删除名称中有撇号的文件夹

用vbs实现读取文本文件的方法

用VBS脚本删除指定以外的文件或文件夹

使用vbs脚本添加程序到自启动项的代码

精品推荐
分类导航