Pin folder contents to Start Menu

Question

Hello,
I know how to pin a single item to the start menu. I am using the following for a single item:
Function fPinToStart
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(strPinFrom)
Set objFolderItem = objFolder.ParseName("google.lnk")
wscript.echo objFolderItem.Name
For Each verb In objFolderItem.Verbs()
wscript.echo verb.name
If verb.Name = "Pin to Start Men&u" Then
verb.DoIt()
End If
Next
End Function
What I need to do though is take the contents of a folder and pin the contents to the start menu. The reason for this is we have 5 or 6 websites that need to easily be accessed on locked down systems. In order to make them easy to access we want to pin to
the start menu. I know I can create 5 or 6 functions but it seems like I should be able to take the contents of a folder and somehow parse that data so that it can run each item separately. I am using the below to read the contents of a folder. Is there a
way I can feed it into the above function so that each objFile can be looped through the For Each?
Function fPinToStartFolder
Set objShell = CreateObject("Shell.Application")
Set objFolder = objFSO.GetFolder(strPinFrom)
Set colFiles = objFolder.Files
For Each objFile in colFiles
wscript.echo objFile.Name
Next
End Function
The way I look at it is objShell.NameSpace(strPinFrom) and objFolder.ParseName("google.lnk") need to be dynamic so that fPinToStartFolder can feed the data into fPinToStart one file at a time. Ofcourse the names of the functions are messy. They will
change as I get a solution.

Answer 1

Thanks Bill. That got me to a solution for unpinning. Just need to make some changes to my pinning script and I am done. Here is the unpin. Modify it the way you need it for pinning
Function fGetUserPinnedStartMenu
fGetUserPinnedStartMenu = "C:\Users\" & strUserName & "\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\StartMenu"
End Function
Function fGetFolderContents(objAppData)
wscript.echo "Pinned Icons Location: " & objAppData
Set objFolder = objFSO.GetFolder(objAppData)
Set colFiles = objFolder.Files
For Each objFile In colFiles
wscript.echo objFile.Name
fUnpinFromStart objFile.Name,objAppData
Next
End Function
Function fUnpinFromStart(objFile,objAppData)
wscript.echo "Unpinning " & objFile
Set objShell = CreateObject("Shell.Application")
Set objFolderUnpin = objShell.Namespace(objAppData)
Set objFolderItem = objFolderUnpin.ParseName(objFile)
For Each verb In objFolderItem.Verbs()
If verb.Name = "Unpin from Start Men&u" Then
verb.DoIt()
End If
Next
End Function
SET objNetwork = CreateObject("WScript.Network")
SET objFSO = CreateObject("Scripting.FileSystemObject")
SET WshShell = CreateObject("wscript.Shell")
strUserName = objNetwork.UserName
objAppData = fGetUserPinnedStartMenu
fGetFolderContents objAppData