Option Explicit

While second(Time()) > 10 


Dim objShell, WshShell
set objShell = CreateObject("WScript.Shell")
objShell.Run("cmd")
WScript.Sleep 500
objShell.SendKeys "dir"
objShell.SendKeys "{Enter}"
WScript.Sleep 3500
objShell.SendKeys "Exit"
objShell.SendKeys "{Enter}"

'WScript.Quit

'  End of SendKeys Example Script

Wend

'xset -dpms
'xset s off