Shortcut.vbs

' Create shortcut for GENERALI

Set WshShell = WScript.CreateObject("WScript.Shell")
ProgramFiles = WshShell.ExpandEnvironmentStrings("%ProgramFiles(x86)%")

' Function create shortcut
'
' @param string name
' @param string urlLink
' @param string browser
Function CreateShortcut(name, urlLink, browser)
	strDesktop = WshShell.SpecialFolders("Desktop")
	Set oUrlLink = WshShell.CreateShortcut(strDesktop & "\" & name & ".lnk")

	oUrlLink.TargetPath = browser
	oUrlLink.IconLocation = browser
	oUrlLink.TargetPath = browser
	oUrlLink.Arguments  = urlLink
	oUrlLink.Save
End Function

' Browsers
firefox = ProgramFiles & "\Mozilla Firefox\firefox.exe"
chrome  = ProgramFiles & "\Google\Chrome\Application\chrome.exe"

' Create shortcuts
Call CreateShortcut("Novo Portal Generali", "http://portalcorretor1.generali.com.br/canalcorretor/Login.aspx", firefox)
call CreateShortcut("Google Test", "http://www.google.com.br", firefox)
call CreateShortcut("Google In Chrome", "http://www.google.com.br", chrome)