none
Script de hora em hora RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar
    preciso criar um arquivo VBS que em algumas horas do dia mande um MSGBOX para os usuários lembrando-os de bater o ponto.
    quarta-feira, 23 de julho de 2014 15:36
    |

Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Bom, esse script é executado quando o usuário loga no computador somente.
    Como você quer que ele execute em horários especificados, não adiantaria colocar os comandos nesse VBS, pois ele ficaria em execução até o horário de enviar a mensagem.

    Eu faria a configuração no Task Scheduler como disse anteriormente, que será bem mais prático.

    Att, Paulo Rocha MCP | MCDST | MCSA Server 2012

    quinta-feira, 24 de julho de 2014 13:17
    |

Todas as Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Claudio,

    Você pode fazer um simples batch para isso, e configurar o Agendador de Tarefas do Windows para executá-lo.

    Se as estações forem Windows XP, esse comando envia mensagem para toda a rede:

    net send * "Mensagem"

    Se forem Windows 7+, pode utilizar esse comando:

    msg /server:$nomeDoComputador * "Mensagem"

    O comando MSG não manda para toda a rede de uma só vez, neste caso o asterisco é para enviar a mensagem para todas as sessões do computador especificado.
    Para mandar para toda a rede, você deve salvar os hostnames das máquinas em um arquivo e utilizar o comando como "msg @nomeDoArquivo "Mensagem".

    Digite no prompt "msg /?" para mais informações.

    Att, Paulo Rocha MCP | MCDST | MCSA Server 2012

    quarta-feira, 23 de julho de 2014 16:09
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar
    eu tenho um VBSCRIPT que envia todos os dias boi dia ao usuário quando ele se loga, gostaria de apenas incluir isso nele, tem como?
    quarta-feira, 23 de julho de 2014 16:40
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Poste seu script aqui para verificarmos.

    Att, Paulo Rocha MCP | MCDST | MCSA Server 2012

    quarta-feira, 23 de julho de 2014 16:45
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar 
    'Script de Login


On error Resume Next
Err.clear 0

'============================================================================
'Mapeando Unidades de Disco

Set WshNetwork = Wscript.CreateObject("Wscript.Network")
WshNetwork.MapNetworkDrive "m:","\\192.168.0.20\WEmpresa\WApp","true", "Wcount\administrador", "@WiN*2013" 

Set WshNetwork = Wscript.CreateObject("Wscript.Network")
WshNetwork.MapNetworkDrive "t:","\\192.168.0.20\WEmpresa\WTemp","true", "Wcount\administrador", "@WiN*2013" 


'============================================================================
'Mapeando Impressora 

Set WshNetwork = Wscript.CreateObject("Wscript.Network")
WshNetwork.AddWindowsPrinterConnection "\\192.168.0.20\HP LaserJet M3027 - Principal", "HP LaserJet M3027 - Principal"
WshNetwork.SetDefaultPrinter "\\192.168.0.20\HP LaserJet M3027 - Principal", "HP LaserJet M3027 - Principal"

'============================================================================
'Sincroniza o horario da estacao com o servidor

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set objShell = CreateObject("WScript.shell")
strCmd = "net time \\sol /set /yes"
set objexec = objshell.exec(strcmd)

'============================================================================
'Boas Vindas Ao Usuario

Set objUser = WScript.CreateObject("WScript.Network")
wuser=objUser.UserName
If Time <= "12:00:00" Then
MsgBox ("Bom Dia "+Wuser+", você acaba de ingressar na rede corporativa da Worldcount, por favor respeite as políticas de segurança e não esqueça de bater corretamente seu ponto e bom trabalho!")
ElseIf Time >= "12:00:01" And Time <= "18:00:00" Then
MsgBox ("Boa Tarde "+Wuser+", você acaba de ingressar na rede corporativa da Worldcount, por favor respeite as políticas de segurança e não esqueça de bater corretamente seu ponto e bom trabalho!")
Else
MsgBox ("Boa Noite "+wuser+", você acaba de ingressar na rede corporativa da Worldcount, por favor respeite as políticas de segurança e não esqueça de bater corretamente seu ponto e bom trabalho!")
End If
'==============================================================================
'ponto

 *******QUERO POR ESSE CÓDIGO AQUI*******

Wscript.Quit


    quarta-feira, 23 de julho de 2014 17:04
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Bom, esse script é executado quando o usuário loga no computador somente.
    Como você quer que ele execute em horários especificados, não adiantaria colocar os comandos nesse VBS, pois ele ficaria em execução até o horário de enviar a mensagem.

    Eu faria a configuração no Task Scheduler como disse anteriormente, que será bem mais prático.

    Att, Paulo Rocha MCP | MCDST | MCSA Server 2012

    quinta-feira, 24 de julho de 2014 13:17
    |