Set WshShell = CreateObject("Wscript.Shell")

' Server Name
strServer = "WINGNUT"

' ERunAs Share
strShare = "erunas$"

' ERunAs .eras name
strERAS = "notepad.eras"

' Name you want displayed under the shortcut Icon
strProduct = "Notepad"

' You can replace StartMenu with 'Desktop' or "StartMenu'
strLink = WshShell.SpecialFolders("Desktop") + "\" & strProduct & ".lnk"

Set WshShortcut = WshShell.CreateShortcut(strlink)
WshShortcut.Description = strproduct
WshShortcut.TargetPath = "\\" & strServer & "\" & strShare & "\ERunAs.exe"
WshShortcut.Arguments = "\\" & strServer & "\" & strShare & "\" & strERAS

WshShortcut.IconLocation ="\\" & strServer & "\" & strShare & "\ERunAs.exe, 0"
WshShortcut.WindowStyle = 1
WshShortcut.WorkingDirectory = "\\" & strServer & "\" & strShare
WshShortcut.Save