Internet shortcut

I need to create internet shortcuts on login, and i want them to go
into a folder on the "users" start menu...can someone help me with how
to reference the user profile


set WshShell = WScript.CreateObject("WScript.Shell")

set oUrlLink = WshShell.CreateShortcut("NEEDPATHCORRECTION\Start
Menu\programs" & "\link.url")

oUrlLink.TargetPath = "http://ccc.ccc.com"

oUrlLink.Save

Jerold
Thu Jan 26 10:11:19 CST 2006

On 26 Jan 2006 07:36:39 -0800, "m1kew1lson" <them1kew1lson@gmail.com> wrote:

>I need to create internet shortcuts on login, and i want them to go
>into a folder on the "users" start menu...can someone help me with how
>to reference the user profile
>
>
>set WshShell = WScript.CreateObject("WScript.Shell")
>
>set oUrlLink = WshShell.CreateShortcut("NEEDPATHCORRECTION\Start
>Menu\programs" & "\link.url")
>
>oUrlLink.TargetPath = "http://ccc.ccc.com"
>
>oUrlLink.Save


See tip 9956 » How do I use an environment variable in VBScript?
in the 'Tips & Tricks' at http://www.jsifaq.com


Set oShell = CreateObject( "WScript.Shell" )
userprofile=oShell.ExpandEnvironmentStrings("%UserProfile%")
userstart="""" & userprofile & "\Start Menu"""

Jerold Schulman
Windows Server MVP
JSI, Inc.
http://www.jsiinc.com
http://www.jsifaq.com

TheoCoolen
Thu Jan 26 10:23:04 CST 2006

Maybe this can help you to get a solution?

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("C:\Windows\System32")
Set objFolderItem = objFolder.ParseName("calc.exe")

objFolderItem.InvokeVerb("P&in to Start Menu")



"m1kew1lson" wrote:

> I need to create internet shortcuts on login, and i want them to go
> into a folder on the "users" start menu...can someone help me with how
> to reference the user profile
>
>
> set WshShell = WScript.CreateObject("WScript.Shell")
>
> set oUrlLink = WshShell.CreateShortcut("NEEDPATHCORRECTION\Start
> Menu\programs" & "\link.url")
>
> oUrlLink.TargetPath = "http://ccc.ccc.com"
>
> oUrlLink.Save
>
>