Sub ModifyProgram(connection, existingpackageID, existingProgramNameToModify, newProgramDescription)  

	 ' Load the specific program to change (programname is a key value and must be unique).
	 Set program = connection.Get("SMS_Program.PackageID='" & existingPackageID & "'" & ",ProgramName='" & existingProgramNameToModify & "'")
	
	 ' Replace the existing program property (in this case the program description).
	 program.Description = newProgramDescription
	 
	 ' Save the program with the modified properties.
	 program.Put_

	 ' Output program name.
	 wscript.echo "Modified program: "  & program.ProgramName		

End Sub

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

	try
	{
	
		// Load the specific program to change (programname is a key value and must be unique).
		IResultObject program = connection.GetInstance(@"SMS_Program.PackageID='" + existingPackageID + "',ProgramName='" + existingProgramNameToModify + "'");
	
		// Replace the existing program property (in this case the program description).
		program["Description"].StringValue = newProgramDescription;

		// 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;
}
}