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

這篇文章主要講解了“如何使用vbs刪除host文件域址內容”，文中的講解內容簡單清晰，易于學習與理解，下面請大家跟著小編的思路慢慢深入，一起來研究和學習“如何使用vbs刪除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刪除host文件域址內容”的內容了，經過本文的學習后，相信大家對如何使用vbs刪除host文件域址內容這一問題有了更深刻的體會，具體使用情況還需要大家實踐驗證。這里是億速云，小編將為大家推送更多相關知識點的文章，歡迎關注！