要求：原先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 & "System32DriversetcHosts"
'检查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实现截图功能
百度说，VBS很难截图，倒是有个利用第三方软件的方法，调用该软件，然后该软件会自动截图。但这样，违背了用VBS的初衷。用VBS就是因为它方便快捷

VBS实现查询服务的制造商
一个网友提问：select*fromwin32_service这个能查服务名称、状态……但我想查这个服务的制造商，如微软、农业银行，还是未知的？？这个属性是什么，谢

VBS中解决带空格路径的三种方法
方法一：Setwshell=CreateObject("WScript.Shell")wshell.Run"""C:ProgramFiles360360se360se.exe""",5,TrueSetwshell=Nothing方法二：temp="C:ProgramFiles360360se3360se.exe"path=Chr(34)&temp&C