Avviare Internet explorer da script vbs
![Messaggio Messaggio](http://www.megalab.it/forum/styles/mli2/imageset/icon_post_target.gif)
pageAddress è un indirizzo Http, strInput è una stringa piuttosto lunga con l'indirizzo ip del pc e svariate altre cose, alla fine viene un indirizzo che se messo nel browser Internet explorer spedisce questi dati ad un server aziendale.
Problema, dallo script c'è un proxy configurato nel registra.bat e, per motivi troppo lunghi da spiegarvi, non riesce a superarlo perché non accetta nessuna login e password che gli passo.
C'è modo di aprire internet explorer facendolo puntare a SourceURL = pageAddress & strInput in modo da vedere se mi registra questi dati rilevati in precedenza?
Grazie
Function send_to_services(strInput)
Dim SourceURL
SourceURL = pageAddress & strInput
Wscript.StdOut.WriteLine SourceURL
dim shell
set shell=createobject("wscript.shell")
shell.run "registra.bat """ & SourceURL & """"', 0, false ' The 0 will make it run hidden 'oShell.Run sCmd, 7, False 'commented ' The 7 will make it run minimized
set shell=nothing
End Function
Problema, dallo script c'è un proxy configurato nel registra.bat e, per motivi troppo lunghi da spiegarvi, non riesce a superarlo perché non accetta nessuna login e password che gli passo.
C'è modo di aprire internet explorer facendolo puntare a SourceURL = pageAddress & strInput in modo da vedere se mi registra questi dati rilevati in precedenza?
Grazie
Function send_to_services(strInput)
Dim SourceURL
SourceURL = pageAddress & strInput
Wscript.StdOut.WriteLine SourceURL
dim shell
set shell=createobject("wscript.shell")
shell.run "registra.bat """ & SourceURL & """"', 0, false ' The 0 will make it run hidden 'oShell.Run sCmd, 7, False 'commented ' The 7 will make it run minimized
set shell=nothing
End Function