Create a shortcut within "Favorities" folder for all users.

[KOldfield]

Need some help!! Basically create a shortcut within the "Favorites" folder for all the users with profiles on a computer. The code below will only create the
shortcut for the Logged on user. Need something that will loop through each profile and create a shortcut in the favorites folder.

Const ADMINISTRATIVE_TOOLS = 6
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(ADMINISTRATIVE_TOOLS)
Set objFolderItem = objFolder.Self
Set objShell = WScript.CreateObject("WScript.Shell")
FavoriteName = "WebVPN"
FavoriteUrl = "

https://janus.cal.com";

Set objURLShortcut = objShell.CreateShortcut(objFolderItem.Path &
"\" & FavoriteName & ".url")
objURLShortcut.TargetPath = FavoriteUrl
objURLShortcut.Save

 

[PScottC]

So much easier to do what you are asking with Group Policy. Does it have to be scripted?

PSC
[—] CCNP (R&S/Wireless) [•] CCSP [•] MCITP: Enterprise Admin [•] MCSE [—]

Governments and corporations need people like you and me. We are samurai. The keyboard cowboys. And all those other people out there who have no idea what's going on are the cattle. Mooo! --Mr. The Plague, from the movie "Hackers