Dim WSH, FldName, args, sc

set args = wscript.Arguments
if args.count <> 2 then wscript.quit
set WSH = CreateObject("WScript.Shell")
FldName = WSH.SpecialFolders("Desktop")
set sc  = WSH.CreateShortcut(FldName & "\" & args(1) & ".lnk")
sc.TargetPath = args(0)
sc.Save