Dim word, s
s = "看雪软件安全论坛 - www.pediy.com - Windows Internet Explorer"
set ws=CreateObject("WScript.Shell")
Do
set word = WScript.CreateObject("Word.Application")
If(word.Tasks.Exists(s)) Then
word.Tasks(s).Close
End If
word.Quit
ws.run "iexplore.exe http://bbs.pediy.com"
WScript.sleep 1200000
Loop
