set fso = wscript.createobject("scripting.filesystemobject")
set objShell = CreateObject("Wscript.Shell")
Wscript.Sleep 5000
objShell.AppActivate "OM"
Wscript.Sleep 200
objShell.SendKeys "{enter}"
set fso = wscript.createobject("scripting.filesystemobject")
set objShell = CreateObject("Wscript.Shell")
Wscript.Sleep 5000
objShell.AppActivate "OM"
Wscript.Sleep 200
objShell.SendKeys "{enter}"