... בין הדומיינים trust במידה ויש
Dim WshShell, objFSO, FSO
'הגדרות שם משתמש דומיין וסיסמה
sDomainUser = "domain\username"
sPswd = "password"
'מיפויים
Set oNetwork = CreateObject("Wscript.Network")
oNetwork.MapNetworkDrive _
"Y:", "
\\domainA\share\folder",, sDomainUser, sPswd
oNetwork.MapNetworkDrive _
"i:", "
\\domainB\share\folder",, sDomainUser, sPswd
'העתקה של תיקייה בין שני השרתים
Set network = WScript.CreateObject("WScript.Network")
Set WshShell = Wscript.createobject("Wscript.shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFolder "
\\domainA\share\folder", "
\\domainB\share\folder"
'מחיקת המיפויים
network.RemoveNetworkDrive "y:"
network.RemoveNetworkDrive "i:"
Set WshShell = Nothing
Set objFSO = Nothing