' Double quote
VBDQ = Chr(34)

Set objShell = CreateObject("WScript.Shell")
comspec = objShell.ExpandEnvironmentStrings("%comspec%")

strCommand1 = "start m:\aaaa\shortcuts\DotNetWshPrompt"
strCommand2 = "c:\windows\Explorer.exe M:\aaaa\programs\windows\admin\dsh"

' the /c has to be in there or it won't work
objShell.Run comspec & " /c " & strCommand1
objShell.Run strCommand2