create_shortcuts.vbs

Set WSHShell = WScript.CreateObject("WScript.Shell")
Set fs = WScript.CreateObject("Scripting.FileSystemObject")

Function MakeDesktopShortcut( name, target, arguments )
  Dim Shortcut,DesktopPath,StartupPath
  DesktopPath = WSHShell.SpecialFolders("Desktop")
  Set Shortcut = WSHShell.CreateShortcut(DesktopPath & "\" & name & ".lnk")
  Shortcut.TargetPath = target
  Shortcut.Arguments = arguments
  Shortcut.Save
End Function



Dim x
Dim p
For x = 1 to 3

p = Replace("""Profile $n""", "$n", x)

MakeDesktopShortcut "Chrome " & x, "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe", "--profile-directory=" & p

Next


MakeDesktopShortcut "Note" & x, "C:\Windows\notepad.exe", ""
MakeDesktopShortcut "Google", "https://www.google.com", ""