要求:原先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实现防止计算机使用 LMHosts 文件
- Windows Script Host之用vbs实现[浏览文件夹]功能
- 通过vbs获取远程host文件并保存到指定目录