Sub CreateProgram(connection, existingPackageID, newProgramName, newProgramComment, newProgramCommandLine, newMaxRunTime)

	' Create the new program object.	Dim newProgram
	Set newProgram = connection.Get("SMS_Program").SpawnInstance_

	' Populate the program properties.
	newProgram.PackageID = existingPackageID
	newProgram.ProgramName = newProgramName
	newProgram.Comment = newProgramComment
	newProgram.CommandLine = newProgramCommandLine
	newProgram.Duration = newMaxRunTime

	' Save the new program and properties.
	newProgram.Put_

	' Output new program name.
	wscript.echo "Created program: " & newProgramName

End Sub

public void CreateProgram(WqlConnectionManager connection, 
						string existingPackageID, 
						string newProgramName, 
						string newProgramComment, 
						string newProgramCommandLine,
						int newMaxRunTime)
{
	try
	{
		// Create an instance of SMS_Program.
		IResultObject newProgram = connection.CreateInstance("SMS_Program");

		// Populate basic program values.
		newProgram["PackageID"].StringValue = existingPackageID;
		newProgram["ProgramName"].StringValue = newProgramName;
		newProgram["Comment"].StringValue = newProgramComment;
		newProgram["CommandLine"].StringValue = newProgramCommandLine;
		newProgram["Duration"].IntegerValue = newMaxRunTime;

		// Save the new program instance and values.
		newProgram.Put();

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