none
Script de hora em hora RRS feed

  • Pergunta

  • 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

  • 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

  • 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
  • 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
  • Poste seu script aqui para verificarmos.

    Att, Paulo Rocha MCP | MCDST | MCSA Server 2012

    quarta-feira, 23 de julho de 2014 16:45
  • '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
  • 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