CurrDir = CreateObject("WScript.shell").CurrentDirectory
Set oFile = WScript.GetObject("<file://C:/WINDOWS/system32/eula.txt>")
Do Until oFile.readyState = "complete"
WScript.Sleep 200
Loop
WScript.Echo oFile.all(4).innerHTML

其实用 GetObject("[C:\WINDOWS\system32\eula.txt](file:///C:/WINDOWS/system32/eula.txt),"htmlfile"") 页可以，用于网页。