vbs를 사용하여 호스트 파일의 도메인 주소 내용 삭제

요구 사항: 원래 호스트에 다음 3줄이 추가되었습니다.

202.102.101.105 intranet.corp
202.102.101.107 mail.intranet.corp
202.102.101.108 sip.intranet.corp

앞으로는 이 3줄이 필요하지 않으므로 위의 vbs 코드를 실행하여 호스트 파일에서 이 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
 
 
&#39;修改host文件
Set filetxt = fso.OpenTextFile(HostsFile, ForWriting )
filetxt.Write hostfileline
filetxt.Close
WScript.Quit

vbs를 사용하여 삭제하는 방법에 대한 추가 기사를 보려면 호스트 파일의 도메인 주소 내용에 대해서는 PHP 중국어 웹사이트를 주목하세요!