[Nadine3452]

Например, в файле Excel в макросе указано следующее:
n = Shell("net use t: \\tmndb1\klient\el_plat parol /user:user", vbHide)

или:

n = Shell("net use t: /delete", vbHide)
Вот пока эти команды выполняются, экран черный. Длится это 3-5 секунд