How to create a shortcut for all users in Win 7 and Win 8?

Question

Hi,
I'll trying to make a script that will create a shortcut in every user profile account in a computer. I stumble upon the script below from
http://gallery.technet.microsoft.com/scriptcenter/Create-shortcut-in-your-11cfd3de/view/Discussions#content.
Option Explicit
On Error Resume Next
Dim objShell
Dim objDesktop
Dim  objLink
Dim strAppPath
Dim strWorkDir
Dim strIconPath
strWorkDir ="C:\Program Files\Microsoft Office\Office15"
strAppPath = "C:\Program Files\Microsoft Office\Office15\ORGCHART.EXE"  'you have to use your URL to Interanet site or path to specific program
'strIconPath = "\\server\Xyz.ico"     'specify the path to the icon please change to your valid path
Set objShell = CreateObject("WScript.Shell")
'objDesktop = objShell.SpecialFolders("Desktop")
Set objLink = objShell.CreateShortcut("C:\Users\%userprofile%\Desktop\Org_chart_test.lnk") 'change here To your shortcut name
objLink.Description = "this is a test" 'replaec with your description
'objLink.IconLocation = strIconPath
objLink.TargetPath = strAppPath
objLink.WindowStyle = 3
objLink.WorkingDirectory = strWorkDir
objLink.Save
I did some modifications to cater to my need. Now the question is, how can I make the script create a shortcut for every user profile from the script above?
Any inputs would be greatly appreciated.
Thanks!

Answer 1

You could create the shortcut at one machine, then copy it to the target as part of the logon script. Note also that this line contains an error:
"C:\Users\%userprofile%\Desktop\Org_chart_test.lnk"
It should read:
"%userprofile%\Desktop\Org_chart_test.lnk"