You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
41 lines
819 B
Plaintext
41 lines
819 B
Plaintext
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}") |