Как передать файл с помощью подключения к удаленному рабочему столу с помощью VBScript?

Question

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

Сейчас у меня есть

Set fso = CreateObject("Scripting.FileSystemObject") 
fso.CopyFile "C:\blahdiddyblah\blahdiddy.zip", "fubar.networkname.blah.com\directory 

Когда я запускаю это я получаю плохой Логин или пароль Ошибка Я понимаю, что это потому, что он не дает мне возможность для входа на удаленный рабочий стол, прежде чем пытаться загружать ,

Я пробовал что-то похожее на то, что ниже, за исключением того, что пароль включен как часть строки, в этом случае он выдает ошибку «путь не найден».

Option Explicit 
Dim sComputer, sUsername 
sComputer = InputBox("Please enter the Computer Name or IP") 
sUsername = InputBox("Please Enter the Users Login ID") 

Dim fso 
Set fso = CreateObject("Scripting.FileSystemObject") 
fso.CopyFile "\\servername\path\servers.lst" _ 
    , "\\" & sComputer & "\c$\Documents and Settings\" & sUsername & "\Local Settings 

Answer 1

ОК, так что я сделал здесь использовать чистую используйте команду из окна, что делает подключение к удаленному рабочему столу, и в основном обернуть его в VBScript.

Set WshShell = CreateObject("WScript.Shell") 

WshShell.Run("net use \\destinationServerAddress /user:domain\UserName PW") 

// Разрешить сон во время соединения, в противном случае он потерпит неудачу, потому что у него еще не была возможность войти в систему.

WScript.Sleep 20000 



Set fso = CreateObject("Scripting.FileSystemObject") 

// Удостоверьтесь, что у вас есть права администратора для этой папки, и он является общим. Это означает, что нужно щелкнуть правой кнопкой мыши и перейти к вариантам совместного доступа в окнах.

fso.CopyFolder "SourceFldr", "\\ServerFolder/Fubar", true