Set ws = CreateObject("Wscript.Shell")
ws.sendkeys "^ "
ws.run "HisUI.bat",vbhide