使用vbs刪除host文件域址內容

2019-10-26 18:08:05

字體：大中小

來源：轉載

供稿：網友

要求：原先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 = 1Set 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 ReadOnlyEnd IfSet objFSO = CreateObject("Scripting.FileSystemObject")Set objFile = objFSO.OpenTextFile(HostsFile, ForReading,true)'檢查host文件里面是否已經更改過了，如果更改過，則不再執行腳本hostfileline=""Do Until objFile.AtEndOfStreamstrline = objfile.ReadLineIf 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+strlineLoopWScript.Echo hostfilelineobjFile.Close'修改host文件Set filetxt = fso.OpenTextFile(HostsFile, ForWriting )filetxt.Write hostfilelinefiletxt.CloseWScript.Quit