DosTips.com

Code: Select all

REM Start Loop to read IPs
:START
for /F "tokens=1" %%B in (.\IPList.txt) do call :MAPDRIVE %%B
REM End Loop to read IPs

REM Start Complete Task
echo.
REM net use %Drive% /del 2>nul
echo File Check Complete!!
echo %date:~-10%%time:~0,8%:*** FileCheck Complete!! >> Logs.txt
goto :eof
REM End Complete Task

REM Start Delete if Exist
:MAPDRIVE
if exist %drive% (
	echo.
	echo %drive% drive exist on this computer, deleting %drive% drive
	echo. 
	net use %drive% /del
)
REM End Delete if Exist

REM Start On Screen Display Message
echo *** Mapping %RDriveE%: drive on remote machine %1 ***
echo %date:~-10%%time:~0,8%:*** Mapping %RDriveE% drive on remote machine %1 *** >> Logs.txt
REM End On Screen Display Message

REM Start MAP Network Drive
net use L: \\%1\%RDriveE%$\%MG% /u:%1\%username% %pwd% >nul 2>&1
	if errorlevel 1 (
	GOTO RETRY
	) else (
	echo Successfully Mapped Drive %RDriveE%: On %1
)

:RETRY	
echo.
echo %MG% folder doesn't exist in drive %RDriveE%: of the remote machine
echo Finding %MG% folder in the drive %RDdriveD%: instead...
echo.
net use L: \\%1\%RDdriveD%$\%MG% /u:%1\%username% %pwd% >nul 2>&1
		if errorlevel 1 (
		GOTO ERRORMAPDRIVE
		) Else (
		echo Successfully Mapped Drive %RDdriveD% On %1
)

REM End of Map Network Drive

REM For Loop
echo *** Checking files on %1 ***
echo *** Checking files on %1 *** >> Logs.txt
echo.
echo. >> Logs.txt

REM Start Check Migration Folder
for %%A in ("%gho%" "%GSha%" "%PrepPCI%" "%FileCopy%") Do (
	timeout /t 1 >nul
    if exist "%Drive%\%%~A" (
        echo %%~A exists in the %MG% Folder
		echo %date:~-10%%time:~0,8%:%%~A exists in the %MG% Folder >> Logs.txt
    ) else (
        echo %%~A does not exists in the %MG% Folder 
		echo %date:~-10%%time:~0,8%:%%~A does not exists in the %MG% Folder >> Logs.txt
    )
)
REM End Check Migration Folder

REM Start Check PCI Folder
for %%A in ("%IM%" "%ES%" "%PAS%") Do (
	timeout /t 1 >nul
    if exist "%Drive%\%PCI%\%%~A" (
        echo %%~A exists in the %PCI% Folder
		echo %date:~-10%%time:~0,8%:%%~A exists in the %PCI% Folder >> Logs.txt
    ) else (
        echo %%~A does not exists in the %PCI% Folder 
		echo %date:~-10%%time:~0,8%:%%~A does not exists in the %PCI% Folder >> Logs.txt
    )
)
REM End Check PCI Folder

REM Start Check POST Folder
for %%A in ("%NLM%" "%RSS%" "%Clean%" "%PCIS%" "%ESET%") Do (
	timeout /t 1 >nul
    if exist "%Drive%\%POS%\%%~A" (
        echo %%~A exists in the %POS% Folder
		echo %date:~-10%%time:~0,8%:%%~A exists in the %POS% Folder >> Logs.txt
    ) else (
        echo %%~A does not exists in the %POS% Folder 
		echo %date:~-10%%time:~0,8%:%%~A does not exists in the %POS% Folder >> Logs.txt
    )
)
REM End Check POST Folder

REM Start Check PRE Folder
for %%A in ("%DualServer%" "%Proxy%" "%SHA2%") Do (
	timeout /t 1 >nul
    if exist "%Drive%\%PRE%\%%~A" (
        echo %%~A exists in the %PRE% Folder
		echo %date:~-10%%time:~0,8%:%%~A exists in the %PRE% Folder >> Logs.txt
    ) else (
        echo %%~A does not exists in the %PRE% Folder 
		echo %date:~-10%%time:~0,8%:%%~A does not exists in the %PRE% Folder >> Logs.txt
    )
)
REM End Check PRE Folder

REM Start ERRORMAPDRIVE
:ERRORMAPDRIVE
echo Error mapping drive on %1
echo %date:~-10% %time:~0,8%:Error mapping drive on %1! Possible firewall issue. Check station status in RSS and deploy firewall fix. >> Error.txt
REM End ERRORMAPDRIVE

Code: Select all

@ECHO Off & SetLocal EnableDelayedExpansion
:Main
ECHO	We're going to call Sub1 now...
CALL:Sub1
ECHO	End :Sub1 [%=ExitCode%:%ErrorLevel%]
ECHO	We're going to call Sub2 now...
CALL:Sub2
ECHO	End :Sub2 [%=ExitCode%:%ErrorLevel%]
EXIT /b
________

:Sub1	Handle xxxx stuff
@ECHO	%0 %* [%=ExitCode%:%ErrorLevel%]
REM do stuff here
GOTO:EoF
________

:Sub2	Do something else
@ECHO	%0 %* [%=ExitCode%:%ErrorLevel%]
REM do other stuff here
IF ERRORLEVEL 1 EXIT /b %ErrorLevel%
________

:Error	Change screen to RED as a visual indicator
Color 47
:Exit	with any final/clean-up statements
@ECHO	%0 %* [%=ExitCode%:%ErrorLevel%]
:EoF	in case Command Extensions are Disabled, allows GOTO:EoF to function as originally intended

Code: Select all

if ERRORLEVEL 2 EXIT /B %ErrorLevel%
======================

:: OR

if ERRORLEVEL 1 EXIT /B %ErrorLevel%
::____________________

Code: Select all

%=:                                                                                           Section.labelname =% || Exit /B 1

Code: Select all

'Section.labelname' is not recognized as an internal or external command,
operable program or batch file.

Code: Select all

Set "__________________________________________________________________________________________=Echo/@ & Exit /B 1"
%__________________________________________________________________________________________:@=LabelName%

Code: Select all

@Echo off
(Set lf=^


%= DNR =%)
Setlocal Enabledelayedexpansion

%=:"______________________________________!LF!Section.labelname!LF!________________________________________"=% || Exit /B 1

Code: Select all

'"______________________________________
Section.labelname
________________________________________"' is not recognized as an internal or external command,
operable program or batch file.

Code: Select all

SetLocal&Set "_______=@Call Echo/Exit: %%0 [RC=%%=ExitCode%% EL=%%ERRORLEVEL%%]&Exit /B"

Call:Start This Now
GOTO:Exit
%_______%

:Start %1=What %2=When
@ECHO=Begin: %0 %*
@ECHO=Starting: %1
@ECHO=When: %2
%_______% 2

:Exit
@ECHO=Beg: %0 %*
%_______:@=@echo Real EoF&%