Question : Search all files in machines in a txt file and move files.I have this batch file can anyone help with a vbs to make this faster

Hi,

Search all files in machines in a txt file and move files.I have this batch file can anyone help with a vbs to make this faster

To cut paste any files as mp3,avi,mpg into the unc path.
This works perfect but a faster way is wanted.

Regards
Sharath

Code Snippet:

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

           
           
             :: BATCH SCRIPT START 
@ECHO OFF
SETLOCAL EnableDelayedExpansion
SET NetShare=\\Machinename\Ps
SET InputFile=Machines.txt
IF NOT EXIST "%NetShare%" ECHO Network share not found. &GOTO :EndScript
IF NOT EXIST "%InputFile%" ECHO "%InputFile%" file does not exist. &GOTO :EndScript
FOR %%R IN ("%InputFile%") DO IF %%~zR EQU 0 ECHO "%InputFile%" file is empty. &GOTO :EndScript
FOR /F %%c IN ('TYPE "%InputFile%"') DO (
	ECHO Processing: %%c
	IF NOT EXIST "!NetShare!\%%c" MD "!NetShare!\%%c"
	IF EXIST FileList.txt DEL /F /Q FileList.txt
	FOR /F "delims=: tokens=1" %%d IN ('WMIC /NODE:"%%c" LOGICALDISK WHERE "DriveType=3" GET Name ^|FIND ":"') DO (
		DIR \\%%c\%%d$\*.mp3 /S /B 2>NUL >>FileList.txt
		DIR \\%%c\%%d$\*.avi /S /B 2>NUL >>FileList.txt
		DIR \\%%c\%%d$\*.mpg /S /B 2>NUL >>FileList.txt)
	FOR /F "delims=*" %%f IN ('TYPE FileList.txt ^|FIND "\\"') DO MOVE /Y "%%f" "!NetShare!\%%c\" >NUL 2>&1
	MOVE FileList.txt "!NetShare!\%%c\" >NUL 2>&1)
 
:EndScript
ENDLOCAL
EXIT /B 0
:: BATCH SCRIPT END

           
         

Open in New Window Select All

Answer : Search all files in machines in a txt file and move files.I have this batch file can anyone help with a vbs to make this faster

IF NOY should have been IF NOT.

                       
         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

           
           
             :: BATCH SCRIPT START 
@ECHO OFF
SETLOCAL EnableDelayedExpansion
SET NetShare=\\Machinename\Ps
SET InputFile=Machines.txt
IF NOT EXIST "%NetShare%" ECHO Network share not found. &GOTO :EndScript
IF NOT EXIST "%InputFile%" ECHO "%InputFile%" file does not exist. &GOTO :EndScript
FOR %%R IN ("%InputFile%") DO IF %%~zR EQU 0 ECHO "%InputFile%" file is empty. &GOTO :EndScript
FOR /F %%c IN ('TYPE "%InputFile%"') DO (
	ECHO Processing: %%c
        PING -n 2 -w 100 %%c | FIND /i "Reply from"
        IF NOT ERRORLEVEL 1 (
            REG QUERY \\%%c\HKLM | FIND /i "Software"
            IF NOT ERRORLEVEL 1 (
	        IF NOT EXIST "!NetShare!\%%c" MD "!NetShare!\%%c"
	        IF EXIST FileList.txt DEL /F /Q FileList.txt
	        FOR /F "delims=: tokens=1" %%d IN ('WMIC /NODE:"%%c" LOGICALDISK WHERE "DriveType=3" GET Name ^|FIND ":"') DO DIR \\%%c\%%d$\*.mp3 \\%%c\%%d$\*.avi \\%%c\%%d$\*.mpg /S /B 2>NUL >>FileList.txt
	        FOR /F "delims=*" %%f IN ('TYPE FileList.txt ^|FIND "\\"') DO  if %%~zf GTR 5000000  MOVE /Y "%%f" "!NetShare!\%%c\" >NUL 2>&1
	        MOVE FileList.txt "!NetShare!\%%c\" >NUL 2>&1
            ) ELSE (
                ECHO %%c>>RemoteOffline.txt
            )
        ) ELSE (
             ECHO %%c>>Offline.txt
        )
 
)
 
:EndScript
ENDLOCAL
EXIT /B 0
:: BATCH SCRIPT END
           
         

Open in New Window Select All