Programmatically customize windows 8

This may work but you will have to start the program from the Script and the icons will be on the right.

script.bat

script.vbs prog.exe link

script.vbs

prog = WScript.Arguments.Item(0)
lk = WScript.Arguments.Item(1)
Set oWS = WScript.CreateObject("WScript.Shell")
sLinkFile = "%userprofile%"\start menu\programs\"+prog+".lnk"
Set oLink = oWS.CreateShortcut(sLinkFile)

oLink.TargetPath = lk
oLink.Save