Récupérer le dossier courant d'un script VBS

Bonsoir
Merci d'avance pour votre lecture
Je recherche une solution à un problème assez classique sur lequel google retourne pas mal de réponse seulement voilà aucune ne me convient :aie:.
Comme dit dans le titre, je cherche à obtenir le fichier courant d'ou a été lancé mon script.
Seulement mon script n'est pas un script .vbs, c'est un script inclus dans une page html ....
Du coup l'objet Wscript n'existe pas et du coup

Code:

---

wscript.ScriptFullName

---

ne marche pas :?
J'ai essayé de crée les objets par

Code:

---

CreateObject("Shell.Application")

---

ou

Code:

---

CreateObject("Wscript.Shell")

---

mais je n'ai jamais obtenu l'information recherché dans les propriétés
J'ai également essayé de passer par

Code:

---

1 2 3

Set fso = CreateObject("Scripting.FileSystemObject") ' Récupération du chemin absolu d'exécution du script path = fso.GetAbsolutePathName(".")

---

Mais celui ci me renvoie le fichier courant par défaut c'est à dire "Mes documents", or je veux le chemin sur le réseau dans mon cas, à l'heure actuelle le chemin ressemble plus à : S:\80-19_PMO_TDB....
donc rien à voir :(
Donc si quelqu'un à une idée je suis preneur, ca fait déjà 2 heures que je cherche :aie:

Merci d'avance

C'est forcément au moment ou je poste que j'ai une idée tout co*** "pourquoi m'acharner à le faire en vbs ?" :aie:
un peu de recherche et hop

Code:

---

document.location.pathname

---

qui marche en html ou hta
Bon je suis quand même intéressé par une solution plus vbs mais du coup c'est moins urgent, je vais pourvoir finir :)

Ma solution complète :

Code:

---

1 2 3 4 5 6 7 8 9 10

'Determintation du chemin absolu d'ou se situe le script racine=document.location.pathname ind=InStrRev(racine, "\") 'On retire le nom du script racine=Left(racine,Len(racine)-(ind+1)) 'racine = "/" & chemin absolu que l'on souhaite racine=Right(racine,Len(racine)-1) 'On convertit la chaine en chemin standard racine=Replace(racine, "\", "/")

---