كتابة باتش للنسخ عبر الشبكة

غير ما يلزمك فى هذا السكربت

قم بنسخ الكود فى ملف نصى و قم بحفظه بصيغة vbs

Dim MyNetwork,SharedFolder,FSO,MyFile,Dest

'Destination Path
Dest="C:\"
'Create Network Object
Set MyNetwork = CreateObject("WScript.Network")

'First Remove Any Mapped Drive Z:
MyNetwork.RemoveNetworkDrive "Z:",False, True

'Map The Shared Folder To NetWork Drive
MyNetwork.MapNetworkDrive "Z:", "\\www\Test",False, "Administrator", "MyPassword"

'Mapped Drive Name
SharedFolder = "Z:"

'Use The File System Object
'Create File System Object
Set FSO = CreateObject("Scripting.FileSystemObject")
MyFile = SharedFolder & "\File.txt"

'Copy File 
FSO.CopyFile MyFile,Dest

'Remove Objects From Memory
Set MyNetwork = Nothing
Set FSO = Nothing

هذا السكربت سيقوم بتحويل ال Shared Folder الذى يحتوى الملف الذى تريد نقله ل Mapped Drive و بعد ذلك سيقوم بنقلها لل \:C و هو المكان الذى اخترته

قمت بتجربة السكربت بعد كتابته و عمل معى بنجاح

جارى التعديل فى حال وجود اخطاء وافنى بها

شكرا جزيلا لك, و اعتذر عن التأخر في الرد.