currentScriptPath = Replace(WScript.ScriptFullName, WScript.ScriptName, "") 

strLogFile = currentScriptPath & "log.txt"

wscript.echo strLogFile