Novell Home

Novell MSI Shortcut Launcher

Novell Cool Solutions: Cool Tool

Digg This - Slashdot This

In Brief

Launch an advertised MSI shortcut (*.lnk file) directly from a NAL Application Object.

Vitals

Product Categories:
  • ZENworks
  • Functional Categories:
  • Batch File
  • Configuration
  • Posted:3 Oct 2003
    File Size:7KB
    License:Free
    Download:/coolsolutions/tools/downloads/selfheal.zip
    Publisher:Richard Lailey

    Disclaimer

    Please read the note from our friends in legal before using this file.


    Details

    ZENworks for Desktops 3.x cannot launch shortcuts directly either with or without the *.lnk file extention.

    The 'Path to executable file:' in the Application Object hence becomes:

    C:\Program Files\your app\SelfHeal.exe

    'Parameters:'

    "%USERPROFILE%\Start Menu\your app\shortcut name.lnk" (include the quotes)

    Launching an advertised MSI shortcut in this way invokes MSI Self-healing (hence the name)

    This app was written in VB.net and hence the MS .NET Framework must be installed (i.e. latest OS Service Packs in most cases).

    Note: .net security prevents this from running from anything other than a local drive.

    It's really a simple app! Here's the code:

    Module SelfHeal
         Sub Main()
              Dim separators As String = " "
              Dim commands As String = Microsoft.VisualBasic.Command()
              Dim args() As String = commands.Split(separators.ToCharArray)
              Dim runCommand As String
              Dim x As Integer
              For x = 0 To args.GetUpperBound(0)
                   If x = 0 Then
                        If args(0) = "" Or args(0) = "/?" Then MsgBox("Novell MSI shortcut launcher" & Chr(13) &
                        Chr(13) & "Usage: selfheal ")
                        Exit Sub
                        Else
                             runCommand = args(0)
                        End If
                   Else
                        runCommand = runCommand & " " & args(x)
                   End If
              Next
              Try
                   System.Diagnostics.Process.Start(runCommand)
              Catch
                   MsgBox("Error launching the command:" & Chr(13) & Chr(13) & runCommand)
              End Try
         End Sub
    End Module

    Novell Cool Solutions (corporate web communities) are produced by WebWise Solutions. www.webwiseone.com

    © 2014 Novell