Доступ к общей сетевой папке

Мне нужно получить доступ через VBA к папке, размещенной на сетевом файловом сервере. Папка доступна в письменной форме только через служебную учетную запись (отличную от обычных учетных записей пользователей), для которой у меня есть имя пользователя и пароль.

Через пользовательский интерфейс я могу увидеть эту папку и отобразить ее как локальный диск, но для доступа к ней в письменном виде мне нужно выйти из Windows и войти через учетную запись службы.

Есть ли способ получить доступ к сетевой папке во время обычного сеанса пользователя, кроме жесткого кодирования имени пользователя и pwd в коде VBA?

Я попытался сопоставить папку как локальный диск с:

Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.MapNetworkDrive "S:", "\\corp-server\HostingFolder", False, Username, pwd

но не работал (диск "S" не был сопоставлен). Если вместо этого я делаю то же самое, но без указания имени пользователя и пароля:

Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.MapNetworkDrive "S:", "\\corp-server\HostingFolder"

это работает отлично.

Интересно, возможно ли то, что я пытаюсь сделать? Если нет, есть ли альтернатива?

Спасибо

Ответы на вопрос(1)

Ваш ответ на вопрос