Работа с Shell32 из VBS

Формулировка задачи:

Когда работаю из VBA (из под аксеса) - делаю

все великолепно.
Надо сделать то же самое в vbs-овском скрипте
Начинаю. Пишу

Вываливает "Невозможно создание объекта компонентом ActiveX (Ошибка 429)"
Хм... всю жизнь думал что эти конструкции взаимозаменяемы, ан нет...
Кстати, и в VBA на CreateObject та же самая ругань. Ничего не понимаю.
Как получить ссылку на Shell кто-нибудь может подсказать?

Решение задачи: «Работа с Shell32 из VBS»

textual
                            Листинг программы 
                        

                            DIDiskQuotaUser Microsoft.DiskQuota.<b><font color="darkblue">1</font></b> 
<br>DiskQuotaControl Cannot late bind 
<br>Folder Shell.Application.NameSpace(<b><font color="green">"..."</font></b>) 
<br>Folder2 Shell.Application.NameSpace(<b><font color="green">"..."</font></b>) 
<br>FolderItem Shell.Application.NameSpace(<b><font color="green">"..."</font></b>).Self <font color="blue">or</font> Folder.Items.Item <font color="blue">or</font> Folder.ParseName 
<br>FolderItems Folder.Items 
<br>FolderItems2 Folder.Items 
<br>FolderItemVerb Shell.NameSpace(<b><font color="green">"..."</font></b>).Self.Verbs.Item() 
<br>FolderItemVerbs FolderItem.Verbs <font color="blue">or</font> Shell.NameSpace(<b><font color="green">"..."</font></b>).Self.Verbs 
<br>IShellDispatch2 Shell.Application 
<br>IShellLinkDual2 Shell.NameSpace(<b><font color="green">"..."</font></b>).Self.GetLink <font color="blue">or</font> Shell.NameSpace(<b><font color="green">"..."</font></b>).Items().GetLink  
<br>Shell Shell.Application 
<br>ShellFolderItem Shell.NameSpace(<b><font color="green">"..."</font></b>).Self <font color="blue">or</font> Shell.NameSpace(<b><font color="green">"..."</font></b>).Items() 
<br>ShellFolderView Cannot late bind 
<br>ShellFolderViewOC Cannot late bind 
<br>ShellLinkObject Shell.NameSpace(<b><font color="green">"..."</font></b>).Self.GetLink <font color="blue">or</font> Shell.NameSpace(<b><font color="green">"..."</font></b>).Items().GetLink 
<br>ShellUIHelper Cannot late bind 
<br>ShellWindows Shell.Windows <font color="blue">or</font> ShellWindows._NewEnum 
<br>WebViewFolderContents Cannot late bind 
                        