[Iska]

А возможно ли добавить логирование? »

Приношу свои извинения, запамятовал.

Чтобы он заносил имя перемещаемых файлов в текстовый лог … »

Нет, нельзя, поскольку в данном варианте используется перемещение по маске — «*.*».

Если очень нужно, можно попробовать перебором:

читать дальше »

Код:

Option Explicit

Dim objFSO
Dim arrShare

Dim strSourceFolder
Dim strDestFolder

Dim objFile
Dim objFolder


Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

For Each arrShare In Array( _
		Array("\\server1\share1", "\\server2\share1"), _
		Array("\\server1\share2", "\\server2\share2"), _
		Array("\\server1\share3", "\\server2\share3"), _
		Array("\\server1\share4", "\\server2\share4") _
	)
	
	strSourceFolder = arrShare(0)
	strDestFolder   = arrShare(1)
	
	If objFSO.FolderExists(strSourceFolder) Then
		If objFSO.FolderExists(strDestFolder) Then
			With objFSO.GetFolder(strSourceFolder)
				WScript.Echo "==========================================================="
				WScript.Echo "Source folder:      " & strSourceFolder
				WScript.Echo "Destination folder: " & strDestFolder
				WScript.Echo "-----------------------------------------------------------"
				
				For Each objFolder In .SubFolders
					WScript.Echo "[" & objFolder.Name & "]"
					objFolder.Move strDestFolder & "\"
				Next
				
				For Each objFile In .Files
					WScript.Echo objFile.Name
					objFile.Move strDestFolder & "\"
				Next
				
				WScript.Echo "==========================================================="
				WScript.Echo
			End With
		Else
			WScript.Echo "Destination folder [" & strDestFolder & "] not found."
		End If
	Else
		WScript.Echo "Source folder [" & strSourceFolder & "] not found."
	End If
Next

Set objFSO = Nothing

WScript.Quit 0

Для вывода лога в файл используйте перенаправление вывода:

Код:

cscript.exe //nologo "Путь\Имя.vbs" >"\\server2\sharelogs\Out.log"