Dim objWshShell
Set objWshShell = CreateObject("WScript.Shell")
Wscript.Echo objWshShell.SpecialFolders("AllUsersDesktop")
'C:\Documents and Settings\All Users\デスクトップ
Wscript.Echo objWshShell.SpecialFolders("AllUsersStartMenu")
'C:\Documents and Settings\All Users\スタート メニュー
Wscript.Echo objWshShell.SpecialFolders("AllUsersPrograms")
'C:\Documents and Settings\All Users\スタート メニュー\プログラム
Wscript.Echo objWshShell.SpecialFolders("AllUsersStartup")
'C:\Documents and Settings\All Users\スタート メニュー\プログラム\スタートアップ
Wscript.Echo objWshShell.SpecialFolders("Desktop")
'C:\Documents and Settings\local user\デスクトップ
Wscript.Echo objWshShell.SpecialFolders("Favorites")
'C:\Documents and Settings\local user\Favorites
Wscript.Echo objWshShell.SpecialFolders("Fonts")
'C:\WINDOWS\Fonts
Wscript.Echo objWshShell.SpecialFolders("MyDocuments")
'C:\Documents and Settings\local user\My Documents
Wscript.Echo objWshShell.SpecialFolders("NetHood")
'C:\Documents and Settings\local user\NetHood
Wscript.Echo objWshShell.SpecialFolders("PrintHood")
'C:\Documents and Settings\local user\PrintHood
Wscript.Echo objWshShell.SpecialFolders("Programs")
'C:\Documents and Settings\local user\スタート メニュー\プログラム
Wscript.Echo objWshShell.SpecialFolders("Recent")
'C:\Documents and Settings\local user\Recent
Wscript.Echo objWshShell.SpecialFolders("SendTo")
'C:\Documents and Settings\local user\SendTo
Wscript.Echo objWshShell.SpecialFolders("StartMenu")
'C:\Documents and Settings\local user\スタート メニュー
Wscript.Echo objWshShell.SpecialFolders("Startup")
'C:\Documents and Settings\local user\スタート メニュー\プログラム\スタートアップ
