結論から言うと、4行で取得できます

拡張子:txtvbswsfjsphpjavahtmlutf8sjis
Set Shell = Wscript.CreateObject( "Shell.Application" )
Set objFolder = Shell.NameSpace( &H25 )
Set objFolderItem = objFolder.Self
Wscript.Echo objFolderItem.Path


なんだ、簡単じゃないか・・・と思いますが、ここだけ見ているからであって、
Shell オブジェクトの説明は、日本人にとって嫌がらせとしか思えないところにあります。

NameSpace Method
※ 引数の詳細はさらに ここ

スクリプトは、エンドユーザでも使えるのがいいんだから、
一般にも解りやすくなってて欲しいものですが、殆どムリ。

これに始まった事では無いですが、Microsoft の節操の無い変化は、
日本の事情とは全く合致していません。( なんか日本は強制落ちこぼれ )



負けるか。

という気持ちにしょっちょうなります。



DESKTOP
0x00
PROGRAMS
0x02
CONTROLS
0x03
PRINTERS
0x04
PERSONAL
0x05
FAVORITES
0x06
STARTUP
0x07
RECENT
0x08
SENDTO
0x09
BITBUCKET
0x0a
STARTMENU
0x0b
DESKTOPDIRECTORY
0x10
DRIVES
0x11
NETWORK
0x12
NETHOOD
0x13
FONTS
0x14
TEMPLATES
0x15
COMMONSTARTMENU
0x16
COMMONPROGRAMS
0x17
COMMONSTARTUP
0x18
COMMONDESKTOPDIR
0x19
APPDATA
0x1a
PRINTHOOD
0x1b
LOCALAPPDATA
0x1c
ALTSTARTUP
0x1d
COMMONALTSTARTUP
0x1e
COMMONFAVORITES
0x1f
INTERNETCACHE
0x20
COOKIES
0x21
HISTORY
0x22
COMMONAPPDATA
0x23
WINDOWS
0x24
SYSTEM
0x25
PROGRAMFILES
0x26
MYPICTURES
0x27
PROFILE
0x28
SYSTEMx86
0x29
PROGRAMFILESx86
0x30