CURRENT DATE TIME AND IDENTIFY LAST 5 MINUTE

@ECHO OFF
:: FIND CURRENT TIME AND IDENTIFY LAST 5 MINUTE
SETlocal enabledelayedexpansion
REM FOR /F "tokens=1,2,3* delims==" %%A IN ('reg query "HKCU\Control Panel\International" ^| find /i "sShortDate"') DO (SET FDATE=%%C)
FOR /F "tokens=1,2,3* delims==: " %%A IN ('DATE /T') DO (SET CDATE=%%B)
FOR /F "tokens=1,2,3* delims==: " %%A IN ('TIME /T') DO (
SET TH=%%A
SET TM=%%B
SET AMPM=%%C
)
ECHO Current Date Time=%CDATE% %TH%:%TM% %AMPM%
SET Z=0
SET X=1
SET THZ=%TH%
:LOOP
IF !X! EQU 6 GOTO :ENDLOOP
SET TH%X%=%THZ%
SET N=%TM%
SET /a N-=%X%
IF !N! LSS 0 GOTO :LST60
IF !N! GEQ 10 SET LS%X%M=%N%
IF !N! LSS 10 SET LS%X%M=0%N%
SET /a X+=1
GOTO :LOOP
:LST60
SET /a N+=60
IF !N! GEQ 10 SET LS%X%M=%N%
IF !N! LSS 10 SET LS%X%M=0%N%
IF !Z! EQU 0 SET /a THZ-=1
SET TH%X%=%THZ%
SET /a X+=1
IF !X! EQU 6 GOTO :ENDLOOP
IF !Z! EQU 1 GOTO :LOOP
SET /a Z+=1
GOTO :LOOP
:ENDLOOP

SET LS1=%CDATE% %TH1%:%LS1M% %AMPM%
SET LS2=%CDATE% %TH2%:%LS2M% %AMPM%
SET LS3=%CDATE% %TH3%:%LS3M% %AMPM%
SET LS4=%CDATE% %TH4%:%LS4M% %AMPM%
SET LS5=%CDATE% %TH5%:%LS5M% %AMPM%
@ECHO Last 1 Mins=%LS1%
@ECHO Last 2 Mins=%LS2%
@ECHO Last 3 Mins=%LS3%
@ECHO Last 4 Mins=%LS4%
@ECHO Last 5 Mins=%LS5%
ENDLOCAL
PAUSE
EXIT

Script ping Host name โดย สร้างไฟล์ SVRLIST.TXT ที่มี Host name หรือ IP Address ไว้ข้างในบรรทัดละ 1 Host name ไว้ที่เดียวกันกับ Batch file

:START
PUSHD "%~dp0"
@ECHO OFF
CLS
COLOR 0A
SETLOCAL ENABLEDELAYEDEXPANSION
FOR /F "TOKENS=1,2,* DELIMS= " %%X IN ('DATE /T') DO SET DDD=%%X %%Y
ECHO #########################################################
ECHO ### ###
ECHO HELLO MAN TODAY IS %DDD%
ECHO ### ###
ECHO #########################################################
SET N1=0
SET N2=0
ECHO ---------------------------
FOR /F "TOKENS=*" %%A IN (SVRLIST.TXT) DO (
FOR /F "TOKENS=*" %%I IN ('ping %%A -n 2^|FIND /C /I "reply"') DO (
IF %%I==2 ECHO %%A IS AVAILABLE
IF %%I EQU 1 COLOR 0E
IF %%I EQU 1 SET /A N1=!N1!+1
IF %%I==1 ECHO --### %%A [IS UNSTABLE] ###
IF %%I EQU 0 COLOR 0C
IF %%I EQU 0 SET /A N2=!N2!+1
IF %%I==0 ECHO --### %%A [IS NOT AVAILABLE] ###
ECHO ---------------------------
)
)
IF !N1! NEQ 0 GOTO NOTWORK
IF !N2! NEQ 0 GOTO NOTWORK
GOTO ALLWORK
:NOTWORK
ECHO #########################################################
ECHO ### PLEASE RECHECK YOUR NETWORK CONNECTION ###
ECHO ### THE NETWORK CONNECTION IS UNSTABLE ###
ECHO ### OR ###
ECHO ### SOME SERVER CONNECTION IS UNAVAILABLE ###
ECHO ### NUMBER OF UNSTABLE SERVER = [ %N1% ] ###
ECHO ### NUMBER OF UNAVAILABLE SERVER = [ %N2% ] ###
ECHO #########################################################
GOTO END
:ALLWORK
ENDLOCAL
ECHO #########################################################
ECHO ### ###
ECHO ### !!!! ENJOY YOUR WORK !!!! ###
ECHO ### ###
ECHO #########################################################
:END
POPD
PAUSE

Script Change Gateway and DNS (Winxp,Win7,)

@ECHO OFF
setLocal EnableDelayedExpansion
SET vargw=192.168.0.51
SET xdns1=192.168.0.13
SET xdns2=192.168.0.1
FOR /F "Tokens=1,2,3,4,* delims= " %%i in ('ver') DO set VCHK=%%l
IF %VCHK%==6 SET IPVxS=ipv4
SET IPVxS=ip
FOR /F "Tokens=2 delims==" %%z in ('WMIC NIC where "NetConnectionStatus='2' and NetConnectionID like 'Local Area Connection%%'" GET NetConnectionID /VALUE') DO SET LCON1=%%z
FOR /F "Tokens=1,2,3,4 delims==: " %%a in ('netsh interface %IPVxS% show addresses "%LCON1%" ^| Find /i "IP Address:"') do set MYIP=%%c
netsh interface %IPVxS% set address name = "%LCON1%" source = static addr = %MYIP% mask = 255.255.255.0 gateway = %vargw% gwmetric = 1 1>&2>nul
netsh interface %IPVxS% set dns "%LCON1%" static %xdns1% primary 1>&2>nul
netsh interface %IPVxS% add dns "%LCON1%" %xdns2% 1>&2>nul
Endlocal
pause
exit