none
Script RRS feed

  • Pergunta

  • Preciso criar um script para quando o usuario acessar o terminal service ele ter a possibilidade de optar por abrir um programa "A" ou um programa "B"...

     

    Alguem pode me ajudar?

     

    Obrigado.

    quinta-feira, 5 de julho de 2007 19:38

Respostas

  •  

    É simples, porém funcional..... é só alterar conforme as suas necessidades.....

     

    Code Snippet

    Option Explicit

    Dim wsShell, progA, progB


    set wsShell = CreateObject("WSCript.Shell")


    function Message()
    Message = InputBox("Selecione o programa a ser iniciado:" & vbcrlf & vbcrlf & "A - Command Prompt" & vbcrlf  & "B - Notepad", "INICIAR PROGRAMA")
    end function

     

    progA = "%windir%\system32\cmd.exe"
    progB = "%windir%\system32\notepad.exe"

     

    Select Case(Message())
     Case("A")
     wsShell.Run progA
     check = 1

     Case("B")
     wsShell.Run progB
     check = 1
     
     Case Else
     wsShell.Popup "Opção inválida"
     Call Message()
    end select

    wscript.quit

     

    Testa e despois posta ae...

     

    Se ajudar, não esqueça de classificar...

     

     

    o.0

     

    sexta-feira, 6 de julho de 2007 21:13
    Moderador