Desktop Shortcuts for Kids 5.2.1

This is the VBscript for shortcuts on Windows 10 that open in Edge browser.

' Desktop Shortcuts for Kids, for Windows 10
' Robert Knight
' bobby@rdknight.net
' version 5 - July 2017
' ----------------------------------------------------------' 
Option Explicit

Dim wscript_shell_object
Dim shortcut_working_directory
Dim shortcut_save_location
Dim shortcut_file_object
Dim EXEC
Dim ICON
Dim DESCRIPTION

Set wscript_shell_object = CreateObject("WScript.Shell")
shortcut_working_directory ="C:\Windows"
shortcut_save_location = wscript_shell_object.SpecialFolders("Desktop")
Set shortcut_file_object = wscript_shell_object.CreateShortcut(shortcut_save_location & "\" & DESCRIPTION &

CreateDesktopShortcut "microsoft-edge:https://www.amazon.com/gp/video/storefront/ref=sv_atv_3?ie=UTF8&merchId=primevideokids", _
"https://www.amazon.com/favicon.ico", shortcut_working_directory, "Amazon Kid's Video", wscript_shell_object, shortcut_save_location, _
shortcut_file_object

CreateDesktopShortcut "microsoft-edge:http://www.abcmouse.com", _
"https://www.abcmouse.com/favicon.ico", shortcut_working_directory, "ABC Mouse", wscript_shell_object, shortcut_save_location, _
shortcut_file_object

CreateDesktopShortcut "microsoft-edge:http://www.nickjr.com", _
"http://www.nickjr.com/favicon.ico", shortcut_working_directory, "Nick Jr.", wscript_shell_object, shortcut_save_location, _
shortcut_file_object

CreateDesktopShortcut "microsoft-edge:http://www.cbc.ca/kidscbc2/", _
"http://www.cbc.ca/favicon.ico", shortcut_working_directory, "CBC 2", wscript_shell_object, shortcut_save_location, _
shortcut_file_object

CreateDesktopShortcut "microsoft-edge:http://www.sproutonline.com", _
"http://www.sproutonline.com/sites/sprout/themes/sprout_twig/images/favicon.ico", shortcut_working_directory, "Sprout", wscript_shell_object, shortcut_save_location, _
shortcut_file_object

CreateDesktopShortcut "microsoft-edge:http://www.youtube.com", _
"http://youtube.com/favicon.ico", shortcut_working_directory, "YouTube", wscript_shell_object, shortcut_save_location, _
shortcut_file_object

CreateDesktopShortcut "microsoft-edge:https://www.youtube.com/user/HobbyKidsTV", _
"http://icons.veryicon.com/ico/Internet%20%26%20Web/Black%20and%20White%20Social/youtube.ico", shortcut_working_directory, "Hobby Kids TV", wscript_shell_object, shortcut_save_location, _
shortcut_file_object

CreateDesktopShortcut "microsoft-edge:https://www.youtube.com/user/FGTeeV", _
"http://icons.veryicon.com/ico/Internet%20%26%20Web/Elegant%20Social%20Media/youtube.ico", shortcut_working_directory, "FGTeeV", wscript_shell_object, shortcut_save_location, _
shortcut_file_object

CreateDesktopShortcut "microsoft-edge:http://www.starfall.com/", _
"http://www.starfall.com/favicon.ico", shortcut_working_directory, "Starfall", wscript_shell_object, shortcut_save_location, _
shortcut_file_object

sub CreateDesktopShortcut(EXEC, ICON, shortcut_working_directory, DESCRIPTION, wscript_shell_object, shortcut_save_location, shortcut_file_object)
    Set shortcut_file_object = wscript_shell_object.CreateShortcut(shortcut_save_location & "\" & DESCRIPTION & ".lnk")
    shortcut_file_object.Description = DESCRIPTION
    shortcut_file_object.IconLocation = ICON
    shortcut_file_object.TargetPath = EXEC
    shortcut_file_object.WindowStyle = 3
    shortcut_file_object.WorkingDirectory = shortcut_working_directory
    shortcut_file_object.Save
End sub



WScript.Quit


Leave a Reply