Copie e cole isso em Notepad
e salve como Shutdown.cmd
:
@ECHO OFF
REM Ping switch/router
PING 192.168.1.1 | FINDSTR TTL
ECHO Errorlevel is %ERRORLEVEL%
REM Ping responds
IF %ERRORLEVEL% EQU 0 GOTO :ConnectedToLAN
REM Ping does not respond
IF %ERRORLEVEL% EQU 1 GOTO :NotConnectedToLAN
GOTO :eof
:ConnectedToLAN
ECHO Connected to LAN
GOTO :eof
:NotConnectedToLAN
ECHO Not connected to LAN
MKDIR %tmp%\TKH\Connected_to_Internet
REM VBScript to make popup dialog
(
ECHO.Option Explicit
ECHO.Dim oShell, retCode
ECHO.Set oShell = WScript.CreateObject^("WScript.Shell"^)
ECHO.retCode = oShell.Popup^("Shutdown computer now? If no answer is given within 90 sec computer will shutdown.", 90, "Shutdown?", 4 + 32^)
ECHO.Select Case retCode
ECHO. case 6, -1
ECHO. WScript.quit^(0^) 'Yes or time-out was chosen
ECHO. case 7
ECHO. WScript.quit^(1^) 'No was chosen
ECHO.End Select
)>"%tmp%\TKH\Connected_to_Internet\Shutdown.vbs"
CSCRIPT //nologo "%tmp%\TKH\Connected_to_Internet\Shutdown.vbs"
ECHO Errorlevel is %ERRORLEVEL%
REM Timeout or clicked Yes (Shutdown)
IF %ERRORLEVEL% EQU 0 SHUTDOWN /P /F
REM Clicked No (Do nothing)
IF %ERRORLEVEL% EQU 1 REM
REM Clean up
RD /Q /S "%tmp%\TKH\
Abra Task Scheduler
(procure por ele no menu inicial).
Crie uma nova tarefa, dê um nome a ela.
Em Trigger
put At log on
, Repeat task every:
escolha o intervalo de repetição desejado (com que frequência verificar a conexão de LAN, for a duration of: Indefinitely
.
Em Action
Clique em New...
, Start a program
, Browse...
e localize o arquivo Shutdown.cmd
que você criou recentemente.
Pressione OK duas vezes para criar a tarefa.
Encontre a tarefa que você acabou de criar e clique com o botão direito do mouse e escolha Run
.
Uma caixa de diálogo deve aparecer assim:
EditeShutdown.cmd
paraatenderàssuasnecessidades(endereçodoroteador,etc.).
OscriptVBSvemdaqui: Link .