none
((( SCRIPT DE SAUDAÇÃO + FRASE PARA O USUÁRIO FINAL ))) RRS feed

  • Pergunta

  • Caros colegas, boa tarde!

    Tenho o seguinte Script:


    Option Explicit

    Dim Text, Title, WSHShell, WSHNetwork, objDomain, Userobj, WshEnv, objFSO, objSysInfo, UserName, objCurrentUser, FullName, Wuser
    ' Dim WshNetwork   ' Object variable

    Set objSysInfo = CreateObject("ADSystemInfo")
    Set objCurrentUser = GetObject("LDAP://" & objSysInfo.UserName)
    Wuser=objCurrentUser.FullName

    If Time <= "12:00:00" Then
    MsgBox ("Bom Dia, "+Wuser+"!"),0, "| EMPRESA |"
    ElseIf Time >= "12:00:01" And Time <= "19:00:00" Then
    MsgBox ("Boa Tarde, "+Wuser+"!"),0, "| EMPRESA |"
    Else
    MsgBox ("Boa Noite, "+wuser+"!"),0, "| EMPRESA |"
    End If

    Text = "Você acaba de ingressar na Rede Corporativa EMPRESA, bom trabalho."& vbCrLf & vbCrLf
    Title = "| EMPRESA - ((( Tecnologia da Informação ))) |"

    ' Create a new WshNetwork object to access network properties.
    Set WshNetwork = WScript.CreateObject("WScript.Network")

    MsgBox Text, vbOKOnly + vbInformation, Title

    '*** End

    '*** Text = Text & "Nome do usuário: " &  wshNetwork.UserName & vbCrLf
    '*** Text = Text & "Nome do computador: " & WshNetwork.ComputerName & vbCrLf
    '*** Text = Text & "Domínio: " & WshNetwork.UserDomain & vbCrLf

    Desta forma que esta o script. o usuário final recebe 2 mensagens.

    1 - | EMPRESA |

    Boa Tarde, Trentini!

    2 - | EMPRESA | - ((( Tecnologia da Informação )))

    Você acaba de ingressar na Rede Corporativa EMPRESA, bom trabalho.

     

    Gostaria de saber como faço para deixar somente uma mensagem de saudação, bom dia, boa tarde, boa noite e, como faço para coloar na frente do BOM DIA, USUARIO, a seguinte frase (como exemplo):

    Ficaria assim:

    | EMPRESA|

    Bom dia, USUARIO!

    Você sabia que ....

    1.X

    2.Y

    3.Z

    Autor: Fulano de Tal

     

    É POSSÍVEL?


    Grato, Trentini
    sexta-feira, 9 de abril de 2010 21:21

Respostas

  • Text = sSaudacao & vbCrLf + "Você sabe como criar uma ""energia positiva "" para você?" & vbCrLf & vbCrLf & Text1

    Teste e se for isso lembre de fechar a thread.

    Abraço.


    Gabriel Nascimento MCP / MCSA / CCNA Não esqueça de contribuir para organização dos fóruns - Classifique as respostas
    • Marcado como Resposta TrentiniFood segunda-feira, 19 de abril de 2010 12:06
    domingo, 11 de abril de 2010 02:46

Todas as Respostas

  • O que vc quer com esse 1.X. 2.Y, 3.Z?

    Isso será algum texto que irá aparecer de acordo com alguma condição?

    Ou um texto fixo?


    Gabriel Nascimento MCP / MCSA / CCNA Não esqueça de contribuir para organização dos fóruns - Classifique as respostas
    sábado, 10 de abril de 2010 14:06
  • Veja se é isso que precisa.

    Option Explicit

    Dim Text, Text1, Title, WSHShell, WSHNetwork, objDomain, Userobj, WshEnv, objFSO, objSysInfo, UserName, objCurrentUser, FullName, Wuser, sSaudacao
    ' Dim WshNetwork   ' Object variable

    Set objSysInfo = CreateObject("ADSystemInfo")
    Set objCurrentUser = GetObject("LDAP://" & objSysInfo.UserName)
    Wuser=objCurrentUser.FullName

    If Time <= "12:00:00" Then
       sSaudacao = "Bom Dia, " + Wuser + "!" & vbCrLf
    ElseIf Time >= "12:00:01" And Time <= "19:00:00" Then
       sSaudacao = "Boa Tarde, " + Wuser + "!" & vbCrLf
    Else
       sSaudacao = "Boa Noite, "+ wuser + "!" & vbCrLf
    End If

    Text1 = "1.X" & vbCrLf & "2.Y" & vbCrLf & "3.Z" & vbCrLf & "Autor: Fulando de Tal"
    Text = sSaudacao + "Você sabia que..." & vbCrLf & Text1
    Title = "| EMPRESA |"

    ' Create a new WshNetwork object to access network properties.
    Set WshNetwork = WScript.CreateObject("WScript.Network")

    MsgBox Text, vbOKOnly + vbInformation, Title

    QUalquer dúvida poste.


    Gabriel Nascimento MCP / MCSA / CCNA Não esqueça de contribuir para organização dos fóruns - Classifique as respostas
    sábado, 10 de abril de 2010 14:25
  • Gabriel,

    Perfeito cara, muito obrigado!

    Mas, só preciso te perguntar uma coisa, segue:

    Dim Text, Text1, Title, WSHShell, WSHNetwork, objDomain, Userobj, WshEnv, objFSO, objSysInfo, UserName, objCurrentUser, FullName, Wuser, sSaudacao
    ' Dim WshNetwork   ' Object variable

    Set objSysInfo = CreateObject("ADSystemInfo")
    Set objCurrentUser = GetObject("LDAP://" & objSysInfo.UserName)
    Wuser=objCurrentUser.FullName

    If Time <= "12:00:00" Then
       sSaudacao = "Bom Dia, " + Wuser + "!" & vbCrLf
    ElseIf Time >= "12:00:01" And Time <= "19:00:00" Then
       sSaudacao = "Boa Tarde, " + Wuser + "!" & vbCrLf
    Else
       sSaudacao = "Boa Noite, "+ wuser + "!" & vbCrLf
    End If

    Text1 = "1.Seja positivo em relação a quem você é e ao que faz" & vbCrLf & "2.Demonstre entusiasmo" & vbCrLf & "3.Não critique nada nem ninguém" & vbCrLf & vbCrLf & "Autor: Allan & Barbara Pease"
    Text = sSaudacao & vbCrLf + "Você sabe como criar uma energia positiva para você?" & vbCrLf & vbCrLf & Text1
    Title = "| EMPRESA |"

    ' Create a new WshNetwork object to access network properties.
    Set WshNetwork = WScript.CreateObject("WScript.Network")

    MsgBox Text, vbOKOnly + vbInformation, Title

    Como coloco entre " " o energia positiva? É possível?

    Obrigado,

    TRENTINI


    Grato, Trentini
    domingo, 11 de abril de 2010 02:40
  • Exatamente o que você fez abaixo.
    Grato, Trentini
    domingo, 11 de abril de 2010 02:42
  • Exatamente o que você fez abaixo...
    Grato, Trentini
    domingo, 11 de abril de 2010 02:43
  • Text = sSaudacao & vbCrLf + "Você sabe como criar uma ""energia positiva "" para você?" & vbCrLf & vbCrLf & Text1

    Teste e se for isso lembre de fechar a thread.

    Abraço.


    Gabriel Nascimento MCP / MCSA / CCNA Não esqueça de contribuir para organização dos fóruns - Classifique as respostas
    • Marcado como Resposta TrentiniFood segunda-feira, 19 de abril de 2010 12:06
    domingo, 11 de abril de 2010 02:46
  • Funcionou?

    Se sim feche a thread.

    Abraço.


    Gabriel Nascimento MCP / MCSA / CCNA Não esqueça de contribuir para organização dos fóruns - Classifique as respostas
    quarta-feira, 14 de abril de 2010 20:39
  • Gostaria de perguntar como posso fazer para esse script identificar a linguagem do do SO e mandar uma mensagem em japonês por exemplo
    sexta-feira, 7 de maio de 2010 20:21
  • Para obter informações sobre o idioma basta ler o OSLanguage, como é feito nesse script.

    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

    Set colOperatingSystems = objWMIService.ExecQuery _
        ("Select * from Win32_OperatingSystem")

    For Each objOperatingSystem in colOperatingSystems
        Wscript.Echo "OS Language: " & objOperatingSystem.OSLanguage
    Next

    Para saber qual o código do idioma que vc precisa vc pode consultar esse link.

    http://www.science.co.il/Language/Locale-Codes.asp

    Qualquer dúvida poste.

    Abraço.


    Gabriel Nascimento MCP / MCSA / CCNA http://gabrielnascimentoit.spaces.live.com -- Se for útil vote.
    terça-feira, 11 de maio de 2010 03:36