使用vbs删除host文件域址内容
2015-09-22 09:59
651 查看
要求:原先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脚本写的Windows硬件检测工具分享
- 禁止QQ上网的vbs脚本代码
- 用vbs实现cmd功能的代码
- 不错的主要用于加密的vbs(asp)位移运算类
- VBS调用Photoshop批量生成缩略图的代码
- VBS教程:对象-Err
- VBS InternetExplorer.Application的属性和方法介绍
- 用vbs实现的简单的服务器文件备份办法压缩文件名自动按日期命名
- VBS基础编程教程 (第1篇)
- VBS显示当前标准时间
- 自动切换能播放音乐列表 vbs
- VBS 两数相加取值问题分析
- VBScript 打造自己的远程CMDShell附使用教程
- VBS基础编程教程 (第3篇)
- 用vbs删除某些类型文件和磁盘空间报告的脚本
- vbs Size 属性使用介绍(获取文件大小)
- 非常棒的lcx写的非常规运行vbs
- windows2003一句话开3389的vbs代码
- vbs 获取radmin注册表中的信息
- 用vbs实现虚拟主机和域名查循的脚本