script to pin/unpin metro app from Windows 8 start menu

hi,

i was trying to pin metro apps to start menu in a windows 8 machine using the VB script which i was using to pin applications to the start menu of a Windows 7 machine.the script is pinning metro apps to the task bar but it is unable to pin the metro apps to the start menu.

This is what i was using to pin the apps to start menu :-

If objFSO.FileExists("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Accessories\APP.lnk") Then
    Set objFolder = objShell.Namespace(strAllUsersProgramsPath & "\Accessories\")
    Set objFolderItem = objFolder.ParseName("app.lnk")
    Set colVerbs = objFolderItem.Verbs
    For Each objVerb in colVerbs
        If Replace(objVerb.name, "&", "") = "Pin to Start Menu" Then objVerb.DoIt
        Next
End If

Please provide a suitable way of doing this.