Sub ModifyProgram(connection, existingpackageID, existingProgramNameToModify, newMaxRunTime)

	Const wbemFlagReturnImmediately = 16
	Const wbemFlagForwardOnly = 32
	Dim query
	Dim programsForPackage
	Dim program

	' Build a query to get the programs for the package. 
	query = "SELECT * FROM SMS_Program WHERE PackageID='" & existingPackageID & "'"

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

	' The query returns a collection that needs to be enumerated.
	For Each program In programsForPackage	 
			 
		' If a match for the program name is found, make the change(s).
		If program.ProgramName=existingProgramNameToModify Then
	
			' Replace the existing package property (in this case the package description).
			program.Duration = newMaxRunTime
		
			' Save the program with the modified properties.
			program.Put_
		
			' Output program name.
			wscript.echo "Modified program: "  & program.ProgramName
		
			Exit For
		End If
	Next

End Sub

public void ModifyProgram(WqlConnectionManager connection, string existingPackageID, string existingProgramNameToModify, int newMaxRunTime)
{

	try
	{
		// Build query to get the programs for the package.
		string query = "SELECT * FROM SMS_Program WHERE PackageID='" + existingPackageID + "'";

		// Load the specific program to change (programname is a key value and must be unique).
		IResultObject programsForPackage = connection.QueryProcessor.ExecuteQuery(query);
	
		// The query returns a collection that needs to be enumerated.
		foreach(IResultObject program in programsForPackage)	 
		{
			// If a match for the program name is found, make the change(s).
			if (program["ProgramName"].StringValue == existingProgramNameToModify)
			{ 			
				 // Replace the existing package property (in this case the package description).
				 program["Duration"].IntegerValue = newMaxRunTime;
				 
				 // Save the program with the modified properties.
				 program.Put();
	
				 // Output program name.
				 Console.WriteLine("Modified program: "  + program["ProgramName"].StringValue);
		}
	}
				 
	
}

	catch (SmsException ex)
	{
		Console.WriteLine("Failed to modify the program. Error: " + ex.Message);
		throw;
}
}