' 调用ie，并打开百度

Set ie = WScript.CreateObject("InternetExplorer.Application")
With ie
    .Navigate "http://www.baidu.com/"
    .Visible = True
End With

                        ' 等页面载入完整再进行下一步

Do
    Wscript.Sleep 2000
Loop Until ie.readyState = 4

                        ' 查询天气

Set kw = ie.Document.getElementById("kw")
Set su = ie.Document.getElementById("su") 
kw.value = "天气"
su.click