Скрытие окон командной строки

[NeverGone]

Вот такой код:

Код: Выделить всё

Dim oExec As Object, sOutput As String
Set oExec = WshShell.exec("cscript " & Path2Script)

Do While True
    sOutput = sOutput & oExec.StdOut.Read(1)
    DoEvents
    If oExec.StdOut.AtEndOfStream Then Exit Do
Loop

If InStr(1, sOutput, proCurrentKey) Then Complete = True

Возникает такая проблема: постоянно появляются окна с командной строкой, мешающие работать
Можно ли как-нибудь их скрыть совсем, либо сделать так, чтобы они появлялись без фокуса на них и в свернутом режиме?
З.Ы. Если у кого-то возникли подозрения, сразу говорю, что вирусами тут не пахнет.

[alibek]

Посмотри второй аргумент у метода Exec.

[NeverGone]

чет я немного не понял... а поподробнее можно?

[Ramzes]

Set oExec = WshShell.exec("cscript " & Path2Script, vbHide)

[NeverGone]

450: Wrong number of arguments or invalid property assignment
В чем может быть проблема?

[iGrok]

450: Wrong number of arguments or invalid property assignment
В чем может быть проблема?

В том, что у Exec НЕТУ второго аргумента, как бы всем этого ни хотелось.
http://msdn.microsoft.com/en-us/library/ateytk4a(VS.85).aspx

Другой вопрос, если ты всё равно пользуешься "cscript", почему бы тебе не использовать для этого обычную "Shell", а не WSH.Exec?
У Shell есть второй аргумент, определяющий тип запуска приложения.
Правда, при этом придётся перехватывать вывод из консоли более сложным методом, чем oExec.StdOut.Read(1)..