Obtenir le répertoire actuel vbscript

scriptdir = CreateObject("Scripting.FileSystemObject").GetParentFolderName(WScript.ScriptFullName)
Colorful Cardinal