none
Boas Vindas RRS feed

  • Discussão Geral

  • Boa noite 

    Eu tenho este script de boas vindas abaixo, aguem tem um melhor para compartilhar ?

    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '                Script de Boas Vindas                          '
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Set objUser = WScript.CreateObject("WScript.Network")
    wuser=objUser.UserName
    If Time <= "12:00:00" Then
    MsgBox ("Bom Dia "+Wuser+", você acaba de fazer logon na rede Corporativa .Respeite.")
    ElseIf Time >= "12:00:01" And Time <= "18:00:00" Then
    MsgBox ("Boa Tarde "+Wuser+", você acaba de fazer logon na rede Corporativa .")
    Else
    MsgBox ("Boa Noite "+wuser+", você acaba de fazer logon na rede Corporativa .")
    End If
    wscript.quit
    


    quarta-feira, 19 de fevereiro de 2014 21:19

Todas as Respostas

  • Amigo, não havia pensado ainda nesta hipótese, obrigado por compartilhar, bom script.

    Tiago Menegon Zimmermann Skype: tiago_zimmermann Fone: &#43;554799699532 E-mail: tiagoz@outlook.com Blog: http://tiagozimmermann.wordpress.com

    quinta-feira, 20 de fevereiro de 2014 11:53
  • Eu só retiraria uma condição no segundo IF.

    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    '                Script de Boas Vindas                          '
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Set objUser = WScript.CreateObject("WScript.Network")
    wuser=objUser.UserName
    If Time <= "12:00:00" Then
    	MsgBox ("Bom Dia "+Wuser+", você acaba de fazer logon na rede Corporativa .Respeite.")
    ElseIf Time <= "18:00:00" Then
    	MsgBox ("Boa Tarde "+Wuser+", você acaba de fazer logon na rede Corporativa .")
    Else
    	MsgBox ("Boa Noite "+wuser+", você acaba de fazer logon na rede Corporativa .")
    End If
    wscript.quit

    Se a execução chegou ao segundo IF é porque o "Time" é maior que 12:00, então não é necessário testar, teste apenas se é menor que 18:00.

    Envie seu código para a Galeria.

    http://gallery.technet.microsoft.com/


    Fábio de Paula Junior

    quinta-feira, 20 de fevereiro de 2014 16:13
    Moderador