none
Inputbox RRS feed

  • Pergunta

  • Boa tarde,

    set oShell= Wscript.CreateObject("WScript.Shell")
    oShell.Run "diskpart"
    WScript.Sleep 1000

    oShell.Sendkeys "Select vdisk file=D:\teste\D-24-10-2013-.vhd"
    oShell.Sendkeys "{ENTER}"

    oShell.Sendkeys "attach vdisk"
    oShell.Sendkeys "{ENTER}"

     

    Preciso criar dois campos input para o usuário digitar o nome do computador e o nome do arquvo no caminho da linha 5 (D:\teste\D-24-10-2013-.vhd), deveria ficar assim D:\%Computername%\Nome do arquivo.vhd.
    - No primeiro input seria o nome do computador
    - no segundo input entrar como o nome do arquivo, que seria C.vhd ou D.vhd, o usuário escolherá na hora qual arquivo.

    Isso conforme script acima.

    quinta-feira, 24 de outubro de 2013 16:04

Respostas

  • Ethewaldo,

    Esse negócio de sendkeys não é muito confiável.

    O diskpart oferece opção de script com o parametro /s.

    Mas de qualquer forma acho que o que você quer é o input box.

    strNomeComputador=Inputbox("Digite o nome do computador:")
    strNomeArquivo=Inputbox("Digite o nome do Arquivo:")

    Agora você já tem as váriaveis com informações vindas do usuário.

    InputBox Function

    http://msdn.microsoft.com/en-us/library/3yfdhzk5(v=vs.84).aspx


    Fábio de Paula Junior


    quinta-feira, 24 de outubro de 2013 16:35
    Moderador

Todas as Respostas

  • Ethewaldo,

    Esse negócio de sendkeys não é muito confiável.

    O diskpart oferece opção de script com o parametro /s.

    Mas de qualquer forma acho que o que você quer é o input box.

    strNomeComputador=Inputbox("Digite o nome do computador:")
    strNomeArquivo=Inputbox("Digite o nome do Arquivo:")

    Agora você já tem as váriaveis com informações vindas do usuário.

    InputBox Function

    http://msdn.microsoft.com/en-us/library/3yfdhzk5(v=vs.84).aspx


    Fábio de Paula Junior


    quinta-feira, 24 de outubro de 2013 16:35
    Moderador
  • Ethewaldo,

    Esse negócio de sendkeys não é muito confiável.

    O diskpart oferece opção de script com o parametro /s.

    Mas de qualquer forma acho que o que você quer é o input box.

    strNomeComputador=Inputbox("Digite o nome do computador:")
    strNomeArquivo=Inputbox("Digite o nome do Arquivo:")

    Agora você já tem as váriaveis com informações vindas do usuário.

    InputBox Function

    http://msdn.microsoft.com/en-us/library/3yfdhzk5(v=vs.84).aspx


    Fábio de Paula Junior


    Boa tarde, Fábio

    Grato pela ajuda, mas como ficaria o caminho D:\teste\D.vhd, pois preciso que a , linha oShell.Sendkeys "Select vdisk file=D:\teste\D-24-10-2013-.vhd" fi que assim "Select vdisk file=D:\strNomeComputador\strNomeArquivo.vhd, como faço isso nesta linha?

    Atenciosamente,

    quinta-feira, 24 de outubro de 2013 16:48
  • Você vai ter que concatenar (pode ser com & ou +) a váriavel com algum texto:

    Digamos que o usuário informou no inputbox o valor: D:\teste\D.vhd

    Na linha você vai escrever:

    oShell.Sendkeys "Select vdisk file=" & strNomeArquivo


    Fábio de Paula Junior

    • Sugerido como Resposta Durval Ramos quinta-feira, 24 de outubro de 2013 17:42
    quinta-feira, 24 de outubro de 2013 17:03
    Moderador