Мой немного отличается и не помогает с паролем, но, как я это делаю, это установить это в начале
dim varNetwork
Set varNetwork = CreateObject("WScript.Network")
затем используйте эту строку для каждого принтера
varNetwork.AddWindowsPrinterConnection "\\server\printer"
Я использую GP, чтобы настроить его для запуска при запуске каждого пользователя, и просто проверяю, что его учетная запись домена имеет разрешения для принтера.