Include en VBS ?

Marsh Posté le 13-11-2012 à 15:43:47

Bonjour,
Existe-t'il un moyen de faire un include d'un script en VBS ? Par exemple pour externaliser les fonctions et les réutiliser/mettre à jour facilement ?

---------------
http://www.aideinfo.com/ Whois adresses IP/domaines le plus évolué !! FAQ Free Mobile

Reply

Marsh Posté le 13-11-2012 à 15:43:47

Reply

Marsh Posté le 15-11-2012 à 10:52:27

Tu peux créer un fichier .vbh contenant uniquement des functions ou des subs.

Ensuite pour les appeler tu crées un fichier .wsf formaté ainsi :

Code :

<job id="nom du script" >
<?job debug="true"?>
<script language="VBScript" src=" chemin relatif vers ton vbh exemple : Include\outils.vbh" debug="true" />
<script language="VBScript">
'ton script vbs ici
</script>
</job>

Message édité par guile0 le 15-11-2012 à 10:55:36

Reply

Marsh Posté le 15-11-2012 à 11:09:29

Ma question concernait non pas du VBS inclus en HTML, mais du VBS pur, donc inclure un VBS avec des fonctions ou des variables spécifiques dans un autre VBS.

Message cité 1 fois

---------------
http://www.aideinfo.com/ Whois adresses IP/domaines le plus évolué !! FAQ Free Mobile

Reply

Marsh Posté le 15-11-2012 à 11:20:55

aideinfo a écrit :

Ma question concernait non pas du VBS inclus en HTML, mais du VBS pur, donc inclure un VBS avec des fonctions ou des variables spécifiques dans un autre VBS.

Je ne pense pas que ça soit possible. On ne peut faire des includes de vbh que dans un script wsf.

Reply

Marsh Posté le 15-11-2012 à 15:33:19

J'avais voulu faire ça pour un script à modules, j'ai utilisé cette fonction pour faire un include de vbs :

Code :

Sub Include(sInstFile)
Dim oFSO, f, s
Set oFSO = CreateObject("Scripting.FileSystemObject" )
If oFSO.FileExists(sInstFile) Then
Set f = oFSO.OpenTextFile(sInstFile)
s = f.ReadAll
f.Close
ExecuteGlobal s
End If
Set oFSO = Nothing
Set f = Nothing
End Sub

Ca marche très bien dans mon cas, a tester avec un vbs contenant des functions mais ya pas de raisons...

Reply

Marsh Posté le 15-11-2012 à 17:20:37

ok, je vais essayer

---------------
http://www.aideinfo.com/ Whois adresses IP/domaines le plus évolué !! FAQ Free Mobile

Reply

Include en VBS ?

Sujets relatifs:

Leave a Replay