TextFile = "log.txt"
PopupTime = 30
Set fs=CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
WshShell.Popup fs.OpenTextFile(TextFile, 1).Readall, PopupTime, TextFile