kijavitottam neked, igy baj nem lehet :)
set WshShell = WScript.CreateObject("WScript.Shell")
strDest = WshShell.SpecialFolders("Desktop")
set oShellLink = WshShell.CreateShortcut(strDest & "\ANYK.lnk")
oShellLink.TargetPath = "C:/Users/Public/abevjava/abevjava_start"
oShellLink.Arguments = ""
oShellLink.WindowStyle = 1
oShellLink.IconLocation = "C:/Users/Public/abevjava/abevjava.ico"
oShellLink.Description = "ANYK"
oShellLink.WorkingDirectory = "C:/Users/Public/abevjava"
oShellLink.Save