This tiny macro works for me:

Sub Macro1()
x = Shell("cmd.exe /c C:\WINDOWS\system32\eventvwr.msc", 1)
End Sub

try adapting it.
--
Gary's Student


"[email protected]" wrote:

> What I'm trying to do is creat a speadsheet that is a checklist for
> Standard Operating Procedures. I have check boxes and when a box gets
> checked, I call the shell function (vbscript) to launch other apps
> (cmd, notepad, etc)
>
> What i'm having touble with is launching active directory (dsa.msc)
>
> I've tried:
>
> Shell ("dsa.msc")
> Shell ("cmd dsa.msc")
> Shell ("\\localhost\cmd dsa.msc")
> Shell ("c:\windows\system32\dsa.msc")
>
> Any ideas on what I am doing wrong and how I can get this to work.
>
> Thanks a lot
>
>