net use z:
//ipaddress/directory password /USER:username
Const OverwriteExisting = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "z:/vbs/*.vbs" , "f:/Archive/" , OverwriteExisting
net use z: /DELETE
Const OverwriteExisting = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "z:/vbs/*.vbs" , "f:/Archive/" , OverwriteExisting
net use z: /DELETE