Comment puis-je automatiser un clic droit dans VBScript?

Je veux automatiser la simulation d'un clic droit pour ouvrir le menu contextuel. Une fois le menu ouvert, sélectionnez l'action sélectionnée/raccourci disponible.

Je sais comment l'ouvrir:

WshShell.SendKeys("+{F10}");

Ou à l'aide de la AutoIt automatisation de la langue de BASE (comme):

  ;--on right click event
    MouseClick("right")
    $count = 1
    Do
        Send("{DOWN}")
        $count = $count + 1  

    Until $count > 7
    Send("{ENTER}")
    ;---select shortcut
    WinWaitActive("xxxxk")

    ;----doing execution from the 3rd program
    ControlSend("xxxxx",  "", "Edit2", "123ABC")
    Sleep(500)
    ControlSend("xxxxx",  "", "Edit3", "123ABC")
    Sleep(500)
    Send("{ENTER}")
    Sleep(500)

    WinClose("xxxxx")
    WinWaitActive("xxxxx", "Close")
    Send("{ENTER}")

Puis-je avoir quelque chose comme ça en VBScript? Trop bordélique, je pense.