2010-07-16 20:49

/* Adds a shortcut to msdn.microsoft.com to the Internet Favorites folder. */
administrative_tools = 6

objshell = createcomobject("Shell.Application")
objfolder = objshell~namespace(administrative_tools) 
objfolderitem = objfolder~self()

objshell = createcomobject("WScript.Shell")
strdesktopfld = objfolderitem~path()
objurlshortcut = objshell~createshortcut(strdesktopfld || "\MSDN.url")
objurlshortcut~targetpath = "http://msdn.microsoft.com"
objurlshortcut~save()

2010-07-16 20:49