Mostrando postagens com marcador VBScript. Mostrar todas as postagens
Acesse o equipamento que receberá o serviço com uma chave Administrativa.
1. Copie o código abaixo, abra o bloco de notas, cole e salve em seguida no diretório "C:\Logouttimeoff" com o nome "Logout.vbs":
' VBScript
' NAME: Logout
' VERSÃO: 1.0
' AUTHOR: www.DicasQueFunfa.com.br
' DATE : 26/12/2011
' O objetivo desse script é encerrar a cessão do usuário em um determinado tempo
On Error Resume Next
Set WshShell = WScript.CreateObject("WScript.Shell")
HoraPermitida = "0" 'Informe as HORAS em que a cessão será expirada
MinutoPermitido = "20" 'Informe os MINUTOS em que a cessão será expirada
cont = 1
'Pega a hora em que o usuário logou no computador
LogonHora = Now
LogonHora = DateAdd("h",HoraPermitida, LogonHora)
LogonHora = DateAdd("n",MinutoPermitido, LogonHora)
WScript.Echo "ATENÇÃO!! Você será automaticamente desconectado em: " &LogonHora
'verifica se o tempo e permitido
Do While Now < LogonHora
WScript.Sleep 300
cont = cont + 1
'vai apresentar a mensagem exibida abaixo sempre que cont = 1500
do while cont = 1500
WScript.Echo "ATENÇÃO!!! VOCÊ SERÁ AUTOMATICAMENTE DESCONECTADO EM " &LogonHora
cont = 0
Loop
Loop
WshShell.Run("%windir%\system32\logoff.exe")
Repita os passos para criar a BAT Goto.bat no diretório C:\Documents and Settings\All Users\Menu Iniciar\Programas\Inicializar\Goto.bat
2. Copie o código abaixo, abra o bloco de notas, cole e salve em seguida no diretório "C:\Documents and Settings\All Users\Menu Iniciar\Programas\Inicializar" com o nome "Goto.bat":
@ECHO OFF
start /min WSCRIPT "c:\Logouttimeoff\logout.vbs"
cls
exit
Dessa forma, toda fez que os usuários fizerem logon a BAT Goto.bat será inicializada e executará de forma ocuta o script Logut.vbs
16 comentários:
Marcadores:
Boa Dica,
VBScript,
Windows
Marcadores:
VBScript,
Windows
Encerrar uma sessão automaticamente - Logoff automaticamente
Cenário:
Imagine que em sua empresa foi instalado nos corredores vários computadores para visitantes e funcionários utilizarem; porem, tem usuário que depois de acessar o computador, sai e deixa a estação bloqueada impedido que outros usuários possam acessar o computador.
Para resolver esse problema vamos fazer
com um LOGOFF forçado - encerramento de sessão do usuário logado no micro no
intervalo de 20 minutos.
Para
isso, será criado em VBScript uma rotina que “pega” a data e hora
em que o usuário logou no micro e compara com a hora e minuto
predefinido no script, se hora predefinida for menor que hora atual, o script encerra a cessão; enquanto não for conte + 1 até 2000 e
então exiba a hora que a sessão será encerrada.
Verificamos que o script "Logout.vbs" é executado em uma janela permitido o
usuário fechar e assim encerrar a execução do script. Para
resolver esse problema foi criado uma BAT que executa o script
Logout.vbs de forma oculta; impossibilitado que o usuário venha
encerrar o script.
Antes de proseguir com o passo a passo, será necessário criar uma pasta no drive c:\
com o nome "Logouttimeoff". Exe: "c:\Logouttimeoff".
Vide aqui o Passo a Passo
Passo
a
Passo
para
Configurar
o
Script
de
Logon
que
Encerra
Sessão
Acesse o equipamento que receberá o serviço com uma chave Administrativa.
' VBScript
' NAME: Logout
' VERSÃO: 1.0
' AUTHOR: www.DicasQueFunfa.com.br
' DATE : 26/12/2011
' O objetivo desse script é encerrar a cessão do usuário em um determinado tempo
On Error Resume Next
Set WshShell = WScript.CreateObject("WScript.Shell")
HoraPermitida = "0" 'Informe as HORAS em que a cessão será expirada
MinutoPermitido = "20" 'Informe os MINUTOS em que a cessão será expirada
cont = 1
'Pega a hora em que o usuário logou no computador
LogonHora = Now
LogonHora = DateAdd("h",HoraPermitida, LogonHora)
LogonHora = DateAdd("n",MinutoPermitido, LogonHora)
WScript.Echo "ATENÇÃO!! Você será automaticamente desconectado em: " &LogonHora
'verifica se o tempo e permitido
Do While Now < LogonHora
WScript.Sleep 300
cont = cont + 1
'vai apresentar a mensagem exibida abaixo sempre que cont = 1500
do while cont = 1500
WScript.Echo "ATENÇÃO!!! VOCÊ SERÁ AUTOMATICAMENTE DESCONECTADO EM " &LogonHora
cont = 0
Loop
Loop
WshShell.Run("%windir%\system32\logoff.exe")
Repita os passos para criar a BAT Goto.bat no diretório C:\Documents and Settings\All Users\Menu Iniciar\Programas\Inicializar\Goto.bat
2. Copie o código abaixo, abra o bloco de notas, cole e salve em seguida no diretório "C:\Documents and Settings\All Users\Menu Iniciar\Programas\Inicializar" com o nome "Goto.bat":
@ECHO OFF
start /min WSCRIPT "c:\Logouttimeoff\logout.vbs"
cls
exit
Dessa forma, toda fez que os usuários fizerem logon a BAT Goto.bat será inicializada e executará de forma ocuta o script Logut.vbs
- Obs.: A BAT Goto.bat é necessário para executar de forma oculta o script Logut.vbs
Especificando
o
tempo
em
que
o
Terminal
de
Consulta
(ou
semelhante)
será
encerrado
- Abra o script “C:\Logouttimeoff\Logout.vbs” e edite as linhas 12 e 13
HoraPermitida
=
"0"
'Informe
as
HORAS
em
que
a
sessão
será
expirada
MinutoPermitido
=
"20"
'Informe
os
MINUTOS
em
que
a
sessão
será
expirada
Nesse
exemplo,
a
sessão
será
encerrada
em
20
minutos.
- Configurando na linha 28 o intervalo em que será exibida uma mensagem para o usuário informado que sua sessão será encerrada.
do
while
cont
=
1500
‘Esse
contador
foi
baseado
no
tempo
de
20
minutos;
depois
de
10
minutos
será
exibido
uma
mensagem
para
o
usuário
informado
que
sua
Sessão
será
encerrada;
Cada
vez
que
cont=150
é
o
mesmo
que
dizer
que
cont=1
minuto;
Exemplo:
se
cont=150
>
1
minuto
se
cont=300
>
2
minuto
se
cont=450
>
3
minuto
se
cont=600
>
4
minuto
se
cont=750
>
5
minuto
se
cont=900
>
6
minuto
se
cont=1050
>
7
minuto
se
cont=1200
>
7
minuto
se
cont=1350
>
9
minuto
se
cont=1500
>
10
minuto
Agora é só testar e pronto
Marcadores:
Boa Dica,
VBScript,
Windows
Criar Unidade Virtual
Imagine que
um
determinado
software
precisar
grava
na
raiz
de
uma
unidade mas a politica de segurança da sua empresa não permiti gravar na raiz das unidades de disco. Veja como resolver isso de forma simples:
PS. Esse procedimento poderá ser aplicado também sempre que o
Windows
limitar
o
nome
de
algum
arquivo. O
Windows
geralmente
limita
os
nomes
de
arquivos
em
255
caracteres.
Passo
a
Passo
para
Criar
Unidade
Virtual
- Abre o Prompt de Comando clicando em Iniciar => Executar escreva CMD e clique em Ok
- No Prompt(cmd.exe) escreva: SUBST UNIDADE: UNIDADE:\CAMINDO
‘Comentário na linha acima
SUBST
-
Esse
comando
diz
para
o
SO
Associar
um
caminho
a
uma
letra
de
unidade.
UNIDADE:
-
Seria
uma
letra
disponível
para
a
unidade
virtual
à
qual
você
deseja
atribuir
um
caminho.
UNIDADE:\CAMINDO
-
A
unidade
física
que
contém
o
caminho
especificado
Exemplos
Para
criar
uma
unidade
virtual
X
para
o
caminho
D:\Documents
and
Settings\Joao\Meus
Documentos\TESTE,
Digite:
Sub SSUBST
X:
D:\Documents
and
Settings\Joao\Meus
Documentos\TESTE
Em
Meu
Computador
a
unidade
X:
representará
a
pasta
TESTE
da
seguinte
forma:
Dica:
Quando
for
informar
o
caminho
físico,
evite
copiar
e
colar;
utilize
a
tecla
TAB
do
teclado
para
navegar
nas
pastas
até
o
diretório
desejado.
Para
Remover
Uma Unidade
Virtual
- Abre o Prompt de Comando clicando em Iniciar => Executar escreva CMD e clique em Ok
- No Prompt escreva: SUBST X: /D
Marcadores:
VBScript,
Windows
Desligar Automatizado
Agendar para o computador desligar todos os dias de forma automatizado.
1º. Passo – Criar um arquivo DESLIGAR.BAT com o seguinte comando:
Shutdown -s -f -t 0 -m \\NomeDoComputador
-s \\Serve para desligar
-f \\Força o desligamento
- t \\O tempo em segundos para desligar
-m \\O computador que será desligado
2º. Passo – Abra no Painel de Controle Tarefas agendadas
3º. Passo – Clique em Adicionar Tarefas agendadas;
4º. Passo – Clique em Avançar;
5º. Passo – Clique em Procurar...
6º. Passo – Navegue até o local que foi criado o arquivo DESLIGAR.BAT e clique em Abrir
7º. Passo – Escolha uma das opções disponíveis e clique em Avançar
8º. Passo – Selecione a hora e o dia que o computador será desligado
9º. Passo – Em nome de usuário deve ser preenchido conforme imagem abaixo e clique em Avançar.
10º. Passo – Clique em Concluir e pronto.
O seu computado já está configurado para desligar todos os dias no horários que você informou.
Marcadores:
VBScript,
Windows