var WshShell = WScript.CreateObject ("WScript.Shell");
WScript.Echo (WshShell.CurrentDirectory);
Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WScript.Echo WshShell.CurrentDirectory
DIM pWsh AS IWshShell3
pWsh3 = NEWCOM "WScript.Shell"
PRINT ACODE$(pWsh3.CurrentDirectory)