Set WshShell1 = CreateObject("WScript.Shell") WshShell1.Run "c:\123\asd.exe", 1, true 'Если 1 - то видно, 0 - не видно Set WshShell1 = Nothing