'RunAs Helper
'Syntax: createShortcut.vbs <filename>
'
set args=wscript.arguments
sFilename = args(0)

Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
Set oFile = FSO.GetFile(sFilename)
sCurrentFile = oFile.path
Set oFolder = oFile.ParentFolder
sCurrentDir = oFolder.path

set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Startup")
set oShellLink = WshShell.CreateShortcut(strDesktop & "\" & sFilename &".lnk")
oShellLink.TargetPath = sCurrentFile
oShellLink.WindowStyle = 1
oShellLink.WorkingDirectory = sCurrentDir
oShellLink.Save