*-- Is Windows Scripting Host installed? *-- OK This You probably don't have as it is *-- a function-call to RickStrahls wwAPI.PRG *-- but I think it's not needed ll_IsScripting = IsComObject('WScript.Shell') &&--> wwUtils, wwAPI if ll_IsScripting if MessageBox("Do You want to create a shortcut on the Desktop?", 32 + 4 , "Question") == 6 lo_Script = create('WScript.Shell') lc_Programm = sys(16, 0) lc_Programm = fullPath(lc_Programm) lc_DeskPath = lo_Script.SpecialFolders("Desktop") lc_Fname = justStem(lc_Programm) lc_Path = lower(addBS(justPath(lc_Programm))) *lc_ShortCut = addBS(lc_DeskPath) + lc_FName + ".LNK" lc_ShortCut = lower(addBS(lc_DeskPath)) + _screen.Caption + ".lnk" if file(lc_shortCut) =MessageBox(; "The shortcut '"+ justStem(lc_ShortCut) +"' already exists.", ; 64, "Information") return else lo_SC = lo_Script.CreateShortCut(lc_ShortCut) *lo_SC.Description = "TestVerknüpfung" *lo_SC.IconLocation = "%SystemRoot%\system32\SHELL32.dll, 13" *lo_SC.IconLocation = fullpath("SCHEDULE.EXE") lo_SC.IconLocation = lc_Programm lo_SC.WorkingDirectory = lc_Path lo_SC.TargetPath = lc_Programm lo_SC.Save if file(lc_shortCut) =MessageBox(; "Shortcut successfully created", ; 64, "Information") endif endif endif else =MessageBox(; "Cannot create shortcut as a needed component (Windows Scripting Host) is not installed.", ; 64, "Information") endifI don't think You have to check for Windows Scripting Host anymore.