Help pls ... can't get these batch file to work

[illusions]

COPY "C:\Users\Public\Desktop\AAP1.lnk" "%USERPROFILE%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\StartMenu\AAP1.lnk"

move /y "%USERPROFILE%\Desktop\AAP2.lnk" "%USERPROFILE%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\StartMenu\APP2.lnk"

The two shortcut got move or copy to the "%USERPROFILE%\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\StartMenu directory

but when I click startmenu it does not appear over there { not pinned on startmenu } even after reboot.

Please advice and thank you.

Edited July 29, 2011 by illusions

[Tripredacus]

None of my scripts for moving shortcuts about have worked in Win7 or Vista. I never put in the effort to figure out why.

[illusions]

Hi all,

Since copy or move does not seem to work in windows 7, I found this script that can pin any application to taskbar / startmenu.

PIN TO TASKBAR SCRIPT.VBS

Dim ObjFolder, ObjFolderItem, colVerbs, objverb, objshell

Set objShell = CreateObject("Shell.Application")

Set objFolder = objShell.Namespace("C:\Program Files (x86)\Google\Google Talk")

Set objFolderItem = objFolder.ParseName("googletalk.exe")

Set colVerbs = objFolderItem.Verbs

For Each objVerb in colVerbs

If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt

Next

WScript.Quit

PIN TO STARTMENU SCRIPT.VBS

Dim ObjFolder, ObjFolderItem, colVerbs, objverb, objshell

Set objShell = CreateObject("Shell.Application")

Set objFolder = objShell.Namespace("C:\Program Files (x86)\Google\Google Talk")

Set objFolderItem = objFolder.ParseName("googletalk.exe")

Set colVerbs = objFolderItem.Verbs

For Each objVerb in colVerbs

If Replace(objVerb.name, "&", "") = "Pin to Start Menu" Then objVerb.DoIt

Next

WScript.Quit