Discussion :

[KronprinZ]

Juste une petite question qui paraitera sans doute très simple à la majorité d'entre vous... Je débute complétement en vbscript, je sais juste bidouiller 2-3 trucs en vba et en dos.

Je voudrais executer un script vbs qui irait récupérer le contenu d'un fichier .txt situé sur un serveur web distant.
En local, c'est dans mes cordes, ça marche sans pb :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
set oFS = CreateObject("Scripting.FileSystemObject")
set oFile = oFS.GetFile("C:\electro.txt")
set ts = oFile.OpenAsTextStream
total = ts.readline

=> Comment faire exactement la même chose mais en récupérant ce fichier electro.txt situé sur une adresse du type http://192.135.xxx.xxx/repertoire/ ??? J'ai essayé des trucs du style (...) set oFile = oFS.GetFile("http://192.135.xxx.xxx/repertoire/electro.txt") mais bien sûr ça ne marche pas...

Deuxième question du même tonneau : Quelqu'un peut-il me donner la correspondance en vbscript de la focntion dos "start http://192.135.xxx.xxx/chemin/chemin/fichier.pdf" qui permet facilement d'ouvrir un fichier distant.


Merci pour vos réponses !

[Subkill]

Deuxième question du même tonneau : Quelqu'un peut-il me donner la correspondance en vbscript de la focntion dos "start http://192.135.xxx.xxx/chemin/chemin/fichier.pdf" qui permet facilement d'ouvrir un fichier distant.

Je ne connais pas les fonctions dos, mais si c'est ouvrir le pdf que tu veux faire voiçi le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Set WshShell = WScript.CreateObject("WScript.Shell")
 
dim url 'Le chemin du URL
 
url = "192.135.xxx.xxx/chemin/chemin/fichier.pdf"
 
WshShell.Run url

je sais que ca fonctionne quand le url commence par http:// alors ca doit aussi marché....

[pc75]

Bonjour,

C'est du VB, mais tu dois pouvoir t'en inspirer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Set IE = CreateObject("InternetExplorer.Application")
 
IE.Visible = False
IE.Silent = True
   IE.Navigate "http://MonURL.fr"
   Do Until IE.ReadyState = READYSTATE_COMPLETE
   DoEvents
   Loop 'attend la fin du chargement
   Contenu = IE.Document.DocumentElement.innerHTML

[__alex__]

Deuxième question du même tonneau : Quelqu'un peut-il me donner la correspondance en vbscript de la focntion dos "start http://192.135.xxx.xxx/chemin/chemin/fichier.pdf" qui permet facilement d'ouvrir un fichier distant.

tu peux aussi lancer la fonction Start à partir de ton vbs :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Set objShell = CreateObject("Wscript.Shell")
 
objShell.Run "cmd \c start http://192.135.xxx.xxx/chemin/chemin/fichier.pdf"