'创建快捷方式
Set oShell = CreateObject("WScript.Shell")
Set oLink = oShell.CreateShortcut("d:\cmd.lnk")
With oLink
    .TargetPath = "cmd.exe"
    .Save
End With
'遍历菜单项
Set oExplorer = CreateObject("Shell.Application")
Set oDir = oExplorer.NameSpace("d:\")
Set oFile = oDir.Items.Item("cmd.lnk")
For Each x In oFile.Verbs
    'WScript.Echo x.Name
    If x.Name = "附到「开始」菜单(&U)" Then
        x.DoIt
    End If
Next

------解决方案--------------------
再说了没有开放接口又怎么了...原来都有的照样抄啊...拿起调试器慢慢调试只要你有耐心...