Dim wshshell

set wshshell = CreateObject("WScript.Shell")

Call wshshell.Run("eventvwr.exe")

WScript.Sleep(7000)
wshshell.SendKeys("%l")
WScript.Sleep(1000)
wshshell.SendKeys("y")
WScript.Sleep(3000)
wshshell.SendKeys("%l")
WScript.Sleep(1000)
wshshell.SendKeys("t")
WScript.Sleep(3000)
wshshell.SendKeys("%n{enter}")
WScript.Sleep(3000)

wshshell.SendKeys("%l")
WScript.Sleep(1000)
wshshell.SendKeys("c")
WScript.Sleep(3000)
wshshell.SendKeys("%l")
WScript.Sleep(1000)
wshshell.SendKeys("t")
WScript.Sleep(3000)
wshshell.SendKeys("%n{enter}")
WScript.Sleep(3000)

wshshell.SendKeys("%l")
WScript.Sleep(1000)
wshshell.SendKeys("a")
WScript.Sleep(3000)
wshshell.SendKeys("%l")
WScript.Sleep(1000)
wshshell.SendKeys("t")
WScript.Sleep(3000)
wshshell.SendKeys("%n{enter}")
WScript.Sleep(3000)

wshshell.SendKeys("%{F4}")