Sub  Main
    Dim WshShell, strDesktop, fileName, oShellLink
    Set WshShell = CreateObject("WScript.Shell")
    strDesktop = WshShell.SpecialFolders("Desktop")
    fileName = strDesktop & "\WinSMART (LITE).lnk"
    strPrograms = WshShell.SpecialFolders("Programs")
	If aqFileSystem.Exists("C:\Program Files\Siemens Hearing\WinSMART") Then
		Set oShellLink = WshShell.CreateShortcut(fileName)
		oShellLink.TargetPath = strPrograms & "\Siemens Hearing\WinSMART\WinSMART.exe"
		oShellLink.Save
	End If
End Sub