Set oDOM=WScript.GetObject("http://www.163.com") Do Until oDOM.readyState="complete" WScript.sleep 200 Loop CreateObject("Scripting.FileSystenObject").OpenTextFile("163.txt",2,true).Write oDOM.documentElement.outerText