Set objShell = CreateObject("WScript.shell")
strCurrentDir = objShell.CurrentDirectory
set fso = createobject("scripting.filesystemobject")
set f=fso.getfolder(strCurrentDir)
For Each i In f.files
If LCase(right(i,4)) = ".exe" Then objShell.Run i,,true
Next

set fso = createobject("scripting.filesystemobject")
fso.GetParentFolderName(WScript.ScriptFullName)

Option Explicit

Dim oFS : Set oFS = CreateObject( "Scripting.FileSystemObject" )
Dim oWS : Set oWS = CreateObject( "WScript.Shell" )

WScript.Echo "Script:"
WScript.Echo "ScriptFullName:", WScript.ScriptFullName
WScript.Echo "ScriptFullPath:", oFS.GetParentFolderName( WScript.ScriptFullName )
WScript.Echo "Current:"
WScript.Echo "FS:", oFS.GetAbsolutePathName( "./" )
WScript.Echo "WS:", oWS.CurrentDirectory

-------- output -------------

C:/wis/_vbs/0506/dev/forum
cscript curdir.vbs
Script:
ScriptFullName: C:/wis/_vbs/0506/dev/forum/curdir.vbs
ScriptFullPath: C:/wis/_vbs/0506/dev/forum
Current:
FS: C:/wis/_vbs/0506/dev/forum
WS: C:/wis/_vbs/0506/dev/forum

C:/wis/_vbs/0506/dev/forum
cd ..

C:/wis/_vbs/0506/dev
cscript forum/curdir.vbs
Script:
ScriptFullName: C:/wis/_vbs/0506/dev/forum/curdir.vbs
ScriptFullPath: C:/wis/_vbs/0506/dev/forum
Current:
FS: C:/wis/_vbs/0506/dev
WS: C:/wis/_vbs/0506/dev