Function GetScriptDir()

	Dim Fso
	Dim obj
	Dim strCurPath

	Set Fso = CreateObject( "Scripting.FileSystemObject" )
	strCurPath = WScript.ScriptFullName
	Set obj = Fso.GetFile( strCurPath )
	Set obj = obj.ParentFolder
	GetScriptDir = obj.Path

End Function