[VBS] Passer une fenêtre IE Windows Security
Bonjour,
Je suis actuellement sur un projet en VBS visant à accéder automatiquement, depuis un serveur, vers un site protégé par un proxy.
J'utilise pour cela un objet "Wscript.CreateObject("InternetExplorer.Application")".
Chaque fois que j'essaie d'accéder au site, une fenêtre "Windows Security" s'affiche.
J'utilise donc un objet "WScript.CreateObject("WScript.shell")" pour rentrer automatiquement les identifiants/mdp correspondant.
Jusque là je n'ai pas de problème.
Cependant mon objectif est de ne plus afficher cette fenêtre "Windows Security".
J'ai donc essayé de ne plus afficher Internet Explorer mais rien n'y change.
J'ai cherché sur plusieurs forums, sites, etc.
Auriez-vous des axes de recherche ou solutions à me proposer?
Je vous remercie par avance pour votre aide.
Voici une partie de mon code :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
| If ConnectionTest(URL) then
Set IE = Wscript.CreateObject("InternetExplorer.Application")
set WshShell = WScript.CreateObject("WScript.shell")
IE.Visible = true
IE.navigate (URL)
'---------------------------------- credentials ------------------------------
WshShell.AppActivate "Windows Internet Explorer"
WScript.Sleep 200
WshShell.SendKeys ""
WScript.Sleep 100
WshShell.SendKeys "{TAB}"
WScript.Sleep 100
WshShell.SendKeys ""
WScript.Sleep 100
WshShell.SendKeys "{TAB}"
WScript.Sleep 100
WshShell.SendKeys "{TAB}"
WScript.Sleep 100
WshShell.SendKeys "{ENTER}"
WScript.Sleep 500
'------------------------------- End credentials ------------------------------
Occupee(IE) |
