Usuário com melhor resposta
Script de hora em hora

Pergunta
-
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
- Sugerido como Resposta Fábio JrModerator segunda-feira, 28 de julho de 2014 14:15
- Marcado como Resposta Fábio JrModerator terça-feira, 29 de julho de 2014 14:07
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
-
-
-
'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
-
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
- Sugerido como Resposta Fábio JrModerator segunda-feira, 28 de julho de 2014 14:15
- Marcado como Resposta Fábio JrModerator terça-feira, 29 de julho de 2014 14:07