使用vbs刪除host文件域址內容
更新時間：2015年09月22日 09:59:12 投稿：hebedich
本文給大家分享的是使用VBS實現(xiàn)刪除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行
'該腳本要求執(zhí)行用戶有本地管理員權限
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文件里面是否已經更改過了，如果更改過，則不再執(zhí)行腳本
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教程：函數(shù)-Int、Fix 函數(shù)...2006-11-11
VBS教程：函數(shù)-FormatPercent 函數(shù)
VBS教程：函數(shù)-FormatPercent 函數(shù)...2006-11-11
僅有一個簡單的功能——修改遠程桌面端口。系統(tǒng)必須是XP?；蛟S應該發(fā)到新手區(qū)2013-01-01
VBS教程：正則表達式簡介 -非打印字符...2006-11-11
VBScript教程 第八課 使用循環(huán)語句...2006-11-11
在 IE 中用VBScript 實際不提示直接打印2008-11-11
在Windows中，學習計算機操作也許很簡單，但是很多計算機工作是重復性勞動，例如你每周也許需要對一些計算機文件進行復制、粘貼、改名、刪除2009-03-03
最近看vbscript程序員參考手冊第三版，講到hta的兩個應用2009-07-07
VBS教程：函數(shù)-UCase 函數(shù)...2006-11-11
這篇文章主要介紹了如何使用 iisext.vbs 在本地或遠程計算機上啟用 Web 服務擴展文件,需要的朋友可以參考下2014-07-07