Sub ListPackagesProgramsandMaximumRunTimeValue(connection)

	' Build query to get all of the packages. 
	packageQuery = "SELECT * FROM SMS_Package"

	' Run query.
	Set allPackages = connection.ExecQuery(packageQuery, , wbemFlagForwardOnly Or wbemFlagReturnImmediately)

	' The query returns a collection of package objects that needs to be enumerated.
	For Each package In allPackages	 
		
			 ' Output package name and get the PackageID value to use in program query.
			 wscript.echo ""
			 wscript.echo "Package: "  & package.Name
			 packageID = package.PackageID
		
			 ' Build query to get the programs for the package. 
			 packageQuery = "SELECT * FROM SMS_Program WHERE PackageID='" & packageID & "'"

			' Run query.
			Set programsForPackage = connection.ExecQuery(packageQuery, , wbemFlagForwardOnly Or wbemFlagReturnImmediately)

			' The query returns a collection of program objects that needs to be enumerated.
			For Each program In programsForPackage	 
			 
			 ' Output Maximum Runtime Value for each program found.
			 wscript.echo "  Program: "  & program.ProgramName
			 wscript.echo "  Maximum Runtime Value: "  & program.Duration
					
		 Next
						 
	Next

End Sub

public void ListPackagesProgramsandMaximumRunTimeValue(WqlConnectionManager connection)
{ 
	try
	{
		// Build query to get the packages. 
		string packageQuery = "SELECT * FROM SMS_Package";

		// Load the specific program to change (programname is a key value and must be unique).
		IResultObject allPackages = connection.QueryProcessor.ExecuteQuery(packageQuery);

		// The query returns a collection of packages that needs to be enumerated.
		foreach(IResultObject package in allPackages)	 
		{ 
			// Output package name and get the PackageID value to use in program query.
			Console.WriteLine();
			Console.WriteLine("Package: "  + package["Name"].StringValue);
			string packageID = package["PackageID"].StringValue;
				
			// Build query to get the programs for the package. 
			string programQuery = "SELECT * FROM SMS_Program WHERE PackageID='" + packageID + "'";

			// Load the all programs belonging to the package.
			IResultObject programsForPackage = connection.QueryProcessor.ExecuteQuery(programQuery);
		
			// The query returns a collection of programs that needs to be enumerated.
			foreach(IResultObject program in programsForPackage)	 
			{ 
				// Output Maximum Runtime Value for each program found.
				Console.WriteLine("   Program: "  + program["ProgramName"].StringValue);
				Console.WriteLine("   Maximum Runtime Value: "  + program["Duration"].IntegerValue);
		}			 
	}
}
	catch (SmsException ex)
	{
		Console.WriteLine("Failed to list the packages and programs. Error: " + ex.Message);
		throw;
}
}