Pb de lecture d'une page ASP à partir d'un script VBScript [Résolu]

Signaler
Messages postés
16
Date d'inscription
vendredi 24 février 2006
Statut
Membre
Dernière intervention
16 mai 2008
-
Messages postés
792
Date d'inscription
vendredi 4 mars 2005
Statut
Membre
Dernière intervention
12 juin 2012
-
Alors le truc est assez simple. Pour des raisons de droit et de sécurité, je ne peux accèder directement à une base de données de mon entreprise. Les admin de la base m'ont donc généré une page en ASP avec uniquement les infos dont j'ai besoin. Il faudrait donc que je puisse lire cette page à partir de mon script VBScript et afficher les champs dont j'ai besoin.

5 réponses

Messages postés
16
Date d'inscription
vendredi 24 février 2006
Statut
Membre
Dernière intervention
16 mai 2008
1
Je n'ai pas accès à InetCtls.Inet.1 dans le registre. Le problème de l'utilisation du logiciel de Microsoft, c'est qu'il va falloir payer pour l'installer et on a plusiuers millier de machine sur lequelles sera exécuté le script.
Mais on a trouvé une autre solution, c'est que la page ASP écrive dans un fichier texte et celui ci est lu par le script VB.

Merci quand même pour toutes ces informations.
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 152 internautes nous ont dit merci ce mois-ci

Messages postés
792
Date d'inscription
vendredi 4 mars 2005
Statut
Membre
Dernière intervention
12 juin 2012
5
Salut seyar,

essaies cela, si tu veux :

MsgBox GetASPPage("http://www.google.fr","/search?hl=fr&q=vbscript&btnG=Rechercher&meta=cr%3DcountryFR")


Function GetASPPage(strURL,strParam)
Dim itInet
Dim strPageCible
'instancie le Microsoft Internet Transfer Control
Set itInet = CreateObject("InetCtls.Inet.1")
'ouvre une url, et récupère la page
strPageCible = itInet.OpenURL(strUrl & strParam & vbcrlf)

'traitement éventuel de la page
'avant que la fonction ne la renvoie



'rapport de la fonction
GetASPPage = strPageCible
'libère la référence
Set itInet = nothing
End Function

Si cela ne fonctionne pas, cherches, avec Regedit, le ProgID InetCtls.Inet.1
Si tu ne l'as pas, essaies de télécharger ou de te faire redistribuer le contrôle Microsoft Internet Transfer Control 6.0 par un tiers.

PS : si tu as un proxy spécifique, dis-le.
à+


rvblogn<SUP>
</SUP><SUP>Je veux ton bien... et je l'aurais
</SUP>
Messages postés
16
Date d'inscription
vendredi 24 février 2006
Statut
Membre
Dernière intervention
16 mai 2008
1
J'ai ce message d'erreur qui s'affiche à l'exécution :
Un composant activeX ne peut pas creer un objet : 'InetCtls.Inet.1'
Messages postés
792
Date d'inscription
vendredi 4 mars 2005
Statut
Membre
Dernière intervention
12 juin 2012
5
Salut seyar,

comme je te l'ai dit, :
"Si cela ne fonctionne pas, cherches, avec Regedit, le ProgID InetCtls.Inet.1
Si tu ne l'as pas, essaies de télécharger ou de te faire redistribuer le contrôle Microsoft Internet Transfer Control 6.0 par un tiers."

je pense donc que tu n'as pas cherché avec Regedit (il faudrait, parce que tu l'as peut-être, mais il est peut-être mal registré, ça arrive).

Sinon, procures-toi l'ActiveX en question. Si tu as des collègues qui utilisent VB, demandes leur de te faire une application "bidon", qui utilise ce contrôle, et de te faire un jeu d'installation.

Quand tu l'installeras, cela t'installera aussi ce contrôle, et cela le registrera. Tu pourras ainsi l'utiliser (par contre, renseignes-toi pour savoir si cela te donneras le droit de le rediffuser). Tu peux aussi installer une application "pas bidon" dont tu es sûr qu'elle est utilisatrice de ce contrôle!

PS : ou si tu as VB, installes-le!
à+


rvblogn<SUP>
</SUP><SUP>Je veux ton bien... et je l'aurais
</SUP>
Messages postés
792
Date d'inscription
vendredi 4 mars 2005
Statut
Membre
Dernière intervention
12 juin 2012
5
Salut seyar,

ravi de t'avoir aidé, à charge de revanche!

à+


rvblogn<SUP>
</SUP><SUP>Je veux ton bien... et je l'aurais
</SUP>