Create a Shortcut

CreateShortcut

Set objShell = WScript.CreateObject("WScript.Shell")   

'All users Desktop 
allUsersDesktop = objShell.SpecialFolders("AllUsersDesktop")   

'The current users Desktop 
usersDesktop = objShell.SpecialFolders("Desktop")   

'Where to create the new shorcut 
Set objShortCut = objShell.CreateShortcut(usersDesktop & "\ALT_TCG_Camacct.url")   

'What does the shortcut point to 
objShortCut.TargetPath = "http://tcgalt.camacct.com"   

'Create the shortcut 
objShortCut.Save