Ajuda com Script VBS

[carlosdantasf]

Bom dia,

 

Sou novato na área.  E gostaria de ajuda  com um script relativamente simples

 

set objShell = CreateObject("Shell.Application")

Dim URL
Dim Execute
Dim SrtLandesk

URL = "http://"StrLandesk":4343"

SrtLandesk=InputBox("Digite o ip da estação")

objShell.ShellExecute "chrome.exe", URL, "", "", 1

 

Preciso criar uma rotina que abra um determinado sistema via Browse através da porta 4343, informando apenas o numero ip da estação

Ex:  https:\\192.168.0.1:4343

 

Bem, o que eu to querendo fazer é o seguinte:   Ler a informação do IP através da variável StrLandesk, e jogar no endereço especificado, de forma que ele abra no Google Crhome. O que acontece é que o script retorna erro ao inserir a variavel "srtlandesk", na URL.

 

Se eu colocar só o endereço completo sem o "StrLandesk"  ele roda normalmente. mais eu preciso que o script leia o IP digitado e jogue dentro do link.   Obrigado!

 

[Graymalkin]

O que você quer é isso aqui:

set objShell = CreateObject("Shell.Application")

Dim URL
Dim StrLandesk

StrLandesk = InputBox("Digite o ip da estação")

URL = "http://" & StrLandesk & ":4343"

objShell.ShellExecute "chrome.exe", URL, "", "", 1

Note que você precisa primeiro obter o que foi digitado (na linha do InputBox) para depois formar a string com o endereço.

Abraços!

[carlosdantasf]

É isso mesmo...Valeu!!!!!!!

To precisando agora só inserir nesse script um esquema pra preencher o Login e a senha automaticamente, pré-definido no código srsr .  Vou estudar essa parte e as duvidas eu pergunto por aqui

Muito agradecido!!!!!