vbs script geht noch nicht ganz

Option Explicit
rem On Error Resume Next
Const WAIT_ON_RETURN = True
Const HIDE_WINDOW = 0

Dim objArgs
Set objArgs = WScript.Arguments

if objArgs(2) = "" then

	WScript.Echo "Please specify all arguments: linkpath, linkname, targetfile, (optional: parameters)"
else

   	Call CreateLink(objArgs(0),objArgs(1),objArgs(2),objArgs(3))

end if

Sub CreateLink(linkpath,linkname,targetfile,parameter)
   
   Set WshShell = WScript.CreateObject("WScript.Shell")
   Dim WshShell, objEnv,sysdrive,sLinkFile,sLinkFolder,cFolder,oLink
   Set objEnv = WshShell.Environment("PROCESS")
   sysdrive = objEnv("SystemDrive")
   sLinkFile = sysdrive & "\" & linkpath & "\" & linkname & ".lnk"
   WScript.Echo "Link File: " & sLinkFile
   sLinkFolder = sysdrive & "\" & linkpath
   WScript.Echo "Link Folder: " & sLinkFolder
   cFolder = "cmd /c md """ & sLinkFolder & """"
   WshShell.Run cFolder, HIDE_WINDOW, WAIT_ON_RETURN
   Set oLink = WshShell.CreateShortcut(sLinkFile)
   if parameter = "" then
	oLink.TargetPath = targetfile
	else
	oLink.TargetPath = """" & targetfile & """" & " " & parameter
   end if
   oLink.Save
   WScript.Echo "Target File: " & oLink.TargetPath  

End Sub

cmd3[pn]=['cscript.exe %CDROM%\\install\\tools\\link.vbs "Dokumente und Einstellungen\\All Users\\Startmenü\\Programme\\Tightvnc" "TightVNC Viewer (Best Compression)" "c:\\programme\\tightvnc\\vncviewer.exe" "-compresslevel 9 -quality 0"']