Pass a username/password when accessing a folder via VBScript

问题

I have a script that is meant to retrieve some files from a users old profile on a server and copy it to there new one, but the users do not have access rights for the folders/files in question when connecting through the server.

Is there a way passing a username/password with the following functions? Thanks.

objFSO.FolderExists(folder_path)
objFSO.CopyFolder(folder_path)
objFSO.CopyFile(folder_path)

回答1:

You have to map the share to a driveletter first, then

persistent = false
set objNetwork = WScript.CreateObject("WScript.Network")
objNetwork.MapNetworkDrive "driveletter:", "\\server\sharename", persistent, "username", "password"

Then use the normal filesystemobject to do the copying, using the driveletter or not. Once authenticated this way it's possible to do other operations with these credentials.

来源：https://stackoverflow.com/questions/10831515/pass-a-username-password-when-accessing-a-folder-via-vbscript