Set wshShell = CreateObject("WScript.Shell")
wshShell.Run """C:\Program Files\Blue Iris 4\BlueIrisAdmin.exe"""
WScript.Sleep 3000
wshShell.SendKeys "%y"
WScript.Sleep 3000

'wshShell.SendKeys "The is test"
'WScript.Sleep 10000