Set colNamedArguments = WScript.Arguments.Named
Set objShell = WScript.CreateObject("WScript.Shell")
Set colSystemEnvVars = objShell.Environment("System")
Set colProcessEnvVars = objShell.Environment("Process")

USB = colSystemEnvVars("USB")
UserProfile = colProcessEnvVars("USERPROFILE")
strUsageNote = "Usage: "& VBCRLF & "createshortcut.vbs /d:[path/filename.lnk of shortcut] /t:[path/filename of target]"

If colNamedArguments.Exists("D") Then
	strDest = colNamedArguments.Item("D")
ELSE
	wscript.echo strUsageNote
	wscript.quit
end if

If colNamedArguments.Exists("T") Then
	strTarget = colNamedArguments.Item("T")
ELSE
	wscript.echo strUsageNote
	wscript.quit
end if

'### Create Vim shortcut in current users sendto
Set objShortCut = objShell.CreateShortcut(strDest)
objShortCut.TargetPath = strTarget
'Wscript.Echo "dest: " & strDest
'Wscript.Echo "target: " & objShortCut.TargetPath
objShortCut.Save