On Error Resume Next

    Dim oUIResource 
    Dim oPrograms 
    Dim oProgram 

    Set oUIResource = CreateObject ("UIResource.UIResourceMgr")

    If oUIResource Is Nothing Then 
        WScript.echo "Could not create Resource Object - quitting"
    End If

    Set oPrograms = oUIResource.GetAvailableApplications

    If oPrograms Is Nothing Then
        WScript.echo "Failed to get programs object - quitting"
        Set oUIResource=Nothing
    End If

    WScript.echo "There are " & oPrograms.Count & " programs"


    For Each oProgram In oPrograms
        WScript.Echo "Program Name: " & oProgram.FullName
        WScript.Echo "  Package ID: " & oProgram.PackageId
        WScript.Echo "  Prog ID: " & oProgram.Id

        sPackageName = oProgram.FullName 
        sPackageID = oProgram.PackageId 
        sProgramID = oProgram.Id

 			  
	Set myProgram = oUIResource.GetProgram(sprogramId, spackageId)
	oldTime = myProgram.LastRunTime
	WScript.Echo oldTime
    
   oUIResource.ExecuteProgram sProgramID, sPackageID, TRUE
    Next 

.KIX Code

$oUIResource = CreateObject("UIResource.UIResourceMgr")

If $oUIResource = ""
	MessageBox("Error Creating the OUIResource", "Error Creating UI", 16)
	Quit
EndIf
	
$oPrograms = $oUIResource.GetAvailableApplications
	
If $oPrograms = "" 
  MessageBox("Failed to get programs object - quitting", "Error Creating Programs Object", 16)
	$oUIResource = Nothing
	Quit
EndIf
		
For Each $oProgram in $oPrograms
		
	$sPackageName = $oProgram.FullName 
	$sPackageID = $oProgram.PackageId 
	$sProgramID = $oProgram.Id
	
	? "Package name: " + $sPackageName
	? "Package ID: " + $sPackageID
	? "Program ID: " + $sProgramID
								  
			$myProgram = $oUIResource.GetProgram($oProgram.Id, $oProgram.PackageId)
			$oldTime = $myProgram.LastRunTime
	      ? "Last Run Time: " + $oldTime
				       
	$oUIResource.ExecuteProgram $sProgramID, $sPackageID, TRUE	
			
Next 

Quit